Page 1 sur 1
convertir le nom des mois ou des jours en numéro
Publié:
22 Juil 2005 à 17:34par Michael DELIQUE
- Code : Tout sélectionner
Function DateToNumber(Byval wDate As String ) As Integer
' gère les dates en francais, anglais, allemand et espagnol
On Error Goto ErreurDateToNumber
DateToNumber = 0
Select Case Ucase(Trim(wDate))
Case "DIMANCHE","SUNDAY","SONNTAG","DOMINGO"
DateToNumber = 1
Case "LUNDI","MONDAY","MONTAG","LUNES"
DateToNumber = 2
Case "MARDI","TUESDAY","DIENSTAG","MARTES"
DateToNumber = 3
Case "MERCREDI","WEDNESDAY","MITTWOCH","MIERCOLES","MIÉRCOLES"
DateToNumber = 4
Case "JEUDI","JUEVES", "DONNERSTAG","THURDAY"
DateToNumber = 5
Case "VENDREDI","FRIDAY","FREITAG","VIERNES"
DateToNumber = 6
Case "SAMEDI","SATURDAY","SAMTAG","SÁBADO","SABADO"
DateToNumber = 7
Case "JANVIER","JANUARY","JANUAR","ENERO"
DateToNumber = 1
Case "FEVRIER","FÉVRIER","FEBRUARY","FEBRUAR","FEBRERO"
DateToNumber = 2
Case "MARS","MARCH","MÄRZ","MARZ","MARZO"
DateToNumber = 3
Case "AVRIL","APRIL","ABRIL"
DateToNumber = 4
Case "MAI","MAY","MAYO"
DateToNumber = 5
Case "JUIN","JUNE","JUNI","JUNIO"
DateToNumber = 6
Case "JUILLET", "JULY", "JULI","JULIO"
DateToNumber = 7
Case "AOUT","AOÛT","AUGUST","AGOSTO"
DateToNumber = 8
Case "SEPTEMBRE","SEPTEMBER","SEPTIEMBRE"
DateToNumber = 9
Case "OCTOBRE","OCTOBER","OKTOBER","OCTUBRE"
DateToNumber = 10
Case "NOVEMBRE","NOVEMBER","NOVIEMBRE"
DateToNumber = 11
Case "DECEMBRE","DÉCEMBRE","DECEMBER","DEZEMBER","DICIEMBRE"
DateToNumber = 12
Case Else
Error 9999,"wDate Erreur"
End Select
Exit Function
ErreurDateToNumber:
Msgbox "(DateToNumber) Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
DateToNumber = 0
Exit Function
End Function