Conversion d'une date/heure standard vers date/heure conforme à la norme rfc822

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 407 fois - Téléchargée 23 fois

Commenter

Contenu du snippet

Ce code permet de générer une string contenant la date et l'heure au format RFC822 (http://asg.web.cmu.edu/rfc/rfc822.html#sec-5) utilisé notamment dans les flux RSS.

Source / Exemple : 


Function DHToRFC822(pDate)

	Dim tblDate(5)
	Dim tblENWeekDayName
	Dim tblENMonthName
	
	If Not IsDate(pDate) Then Exit Function
	
	tblENWeekDayName = Array("Mon","Tue","Wed","Thu","Fri","Sat","Sun")
	tblENMonthName = Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
	
	tblDate(0) = tblENWeekDayName(WeekDay(pDate, 2) - 1) & ","
	If (Len(Day(pDate)) = 1) Then tblDate(1) = "0" & Day(pDate) Else tblDate(1) = Day(pDate)
	tblDate(2) = tblENMonthName(Month(pDate) - 1)
	tblDate(3) = Year(pDate)
	tblDate(4) = TimeValue(pDate)
	tblDate(5) = "+0200"
	
	DHToRFC822 = Join(tblDate, Space(1))
	
	Erase tblDate
	Erase tblENWeekDayName
	Erase tblENMonthName

End Function

Conclusion :


Utilisation :

DHToRFC822(dDate)

A voir également

Ajouter un commentaire Commentaires
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 75
4 juin 2007 à 16:40
Il aurait été plus judicieux d'ajouter ta fonction sur Codyx.org...
emcor11 Messages postés 6 Date d'inscription samedi 8 mai 2004 Statut Membre Dernière intervention 9 avril 2010
4 juin 2007 à 16:32
Salut,

Aucun de vous n'aurait la fonction inverse à celle de Processus(conversion d'une date RFC822 en une date "JJ/MM/AAAA" ou en une date en français genre Dim 16 Mai 2007) ?

Merci
cs_processus Messages postés 360 Date d'inscription vendredi 24 août 2001 Statut Membre Dernière intervention 9 juillet 2008 3
31 mars 2007 à 13:13
Nurgle,

Effectivement, FormatDateTime() ne permet pas de renvoyer la date/heure normé en RFC822, donc ce n'est pas valable pour du RSS Level 2.0 par exemple.

Pour mes variable, j'applique la règle de les déclarer en en-tête, avant toute instruction. Ta remarque est vrais pour le premier tableau, déjà typé puisque dimensionné, mais les autres variables non.

Merci pour ton commentaire.
cs_Nurgle Messages postés 1642 Date d'inscription samedi 6 novembre 2004 Statut Membre Dernière intervention 28 avril 2011 4
31 mars 2007 à 12:56
Salut,
effectivement je ne crois pas me souvenir de fonction ASP/VBScript qui fasse exactement ça, mais est ce que une date du genre FormatDateTime(Date(),1) (qui renverrai un truc du genre "Thursday, February 22, 2007") ne fonctionnerais pas également (dans un RSS) ??

Sinon, pas grand chose à redire, sauf peut être... :
met le If ... Then Exit Function avant les Dim, histoire de ne pas déclarer des tableaux ou d'autres variables qui ne serviront à rien si on rentre dans ton If.
Quant aux Erase, j'utiliserais plutôt des Set ... = Nothing, mais bon :p
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_processus)