<%
'Convertir le mois en chinois
Fonction MoisVersCH(LeMois)
Dim mm
mm=split("Un, deux, trois, quatre, cinq, six, sept, huit, neuf, dix, onze, douze",",")
Si EstNumérique(LeMois) Alors
MoisVersCH = mm(LeMois-1) & "mois"
Autre
MoisVersCH = "mois"
Fin si
Fonction de fin
'Convertir le mois en anglais long
Fonction MonthToLongEN(TheMonth)
Dim mm
mm=split("Janvier, février, mars, avril, mai, juin, juillet, août, septembre, octobre, novembre, décembre", ",")
Si EstNumérique(LeMois) Alors
MoisVersLongEN = mm(LeMois-1)
Autre
MoisVersLongFR = " "
Fin si
Fonction de fin
'Convertir le mois en anglais court
Fonction MonthToShortFR(TheMonth)
Dim mm
mm=split("janvier, février, mars, avril, mai, juin, juillet, août, septembre, octobre, novembre, décembre", ",")
Si EstNumérique(LeMois) Alors
MoisVersCourtEN = mm(LeMois-1)
Autre
MoisVersCourtFR = " "
Fin si
Fonction de fin
%>