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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 086 fois - Téléchargée 21 fois

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

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
Il aurait été plus judicieux d'ajouter ta fonction sur Codyx.org...
Messages postés
6
Date d'inscription
samedi 8 mai 2004
Statut
Membre
Dernière intervention
9 avril 2010

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
Messages postés
360
Date d'inscription
vendredi 24 août 2001
Statut
Membre
Dernière intervention
9 juillet 2008
3
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.
Messages postés
1642
Date d'inscription
samedi 6 novembre 2004
Statut
Modérateur
Dernière intervention
28 avril 2011
2
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

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.