convertir le nom des mois ou des jours en numéro

[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