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

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

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)