PETITES FONCTIONS POUR UTILISER LES DATES

<%
	' Converti une date en chaine
	Function DateToString(dDate)
		DateToString = Year(dDate) & Right("0" & Month(dDate), 2) & Right("0" & Day(dDate), 2)
	End Function

	' Converti datetime en chaine
	Function DateTimeToString(dDateTime)
		DateTimeToString = Year(dDateTime) & Right("0" & Month(dDateTime), 2) & Right("0" & Day(dDateTime), 2) & " " & Right("0" & Hour(dDateTime), 2) & ":" & Right("0" & Minute(dDateTime), 2) & ":" & Right("0" & Second(dDateTime), 2)
	End Function

	' converti time  en chaine
	Function TimeToString(dTime)
		TimeToString = Right("0" & Hour(dTime), 2) & ":" & Right("0" & Minute(dTime), 2) & ":" & Right("0" & Second(dTime), 2)
	End Function

	' converti une chaine en date ou datetime
	Function StringToDate(sDate)
		Dim dDate
		dDate = DateSerial(Left(sDate, 4), Mid(sDate, 5, 2), Mid(sDate, 7, 2))
		If Len(sDate) > 8 Then dDate = dDate + TimeSerial(Mid(sDate, 10, 2), Mid(sDate, 13, 2), Mid(sDate, 16, 2))
		StringToDate = dDate
	End Function

	' Date au format : Jour mois année
	Function GetDateLitteralDDMMYYYY(dDate)
		Dim sDate
		sDate = Day(dDate) & " " & MonthName(Month(dDate)) & " " & Year(dDate)

		GetDateLitteralDDMMYYYY = sDate
	End Function

	' Date au format : Jour mois année à Heure minutes secondes
	Function GetDateLitteralDDMMYYYYHHMMSS(dDate)
		Dim sDate
		sDate = GetDateLitteralDDMMYYYY(dDate)
		
		If (Hour(dDate) <> 0 or Minute(dDate) <> 0) Then sDate = sDate & " " & LANG_AT & " " & Right("0" & CStr(Hour(dDate)), 2) & "h" & Right("0" & CStr(Minute(dDate)), 2)
		GetDateLitteralDDMMYYYYHHMMSS = sDate
	End Function

	' Date au format : Jour/Mois/Année
	Function GetDateDDMMYY(dDate)
		GetDateDDMMYY = Right("0" & Day(dDate), 2) & "/" & Right("0" & Month(dDate), 2) & "/" & Right(Year(dDate), 2)
	End Function

	' Idem sauf que anné avec 4 chiffres
	Function GetDateDDMMYYYY(dDate)
		GetDateDDMMYYYY = Right("0" & Day(dDate), 2) & "/" & Right("0" & Month(dDate), 2) & "/" & Year(dDate)
	End Function

	' Date au format Jour/Mois/Année Heure:Minutes:Secondes
	Function GetDateDDMMYYHHMMSS(dDateTime)
		GetDateDDMMYYHHMMSS = GetDateDDMMYY(dDateTime) & " " & Right("0" & Hour(dDateTime), 2) & ":" & Right("0" & Minute(dDateTime), 2) & ":" & Right("0" & Second(dDateTime), 2)
	End Function
%>