OVH Cloud OVH Cloud

conversion date

2 réponses
Avatar
GL
Bonsoir et joyeux noël à tous,
Suite à import de fichier texte, je cherche à convertir en format date
classique une chaîne texte du type jj-mmm-aaaa (ex : 10-dec-2003).
Je précise qu'il n'y a pas d'accent dans le texte d'origine(dec au lieu de
déc).

Merci de votre aide.

Garri

2 réponses

Avatar
Maxence HUBICHE
Bonsoir,

Tu peux mettre cette formule :

SérieDate(Droite([dates];4);Month_Str2Num(ExtracChaîne([dates];4;3));Gauche([dates];2))

où la fonction Month_str2Num se définit comme suit :

'==================================ÞBUT DU CODE
Function Month_Str2Num(sMonth As String) As Long
Select Case sMonth
Case "jan", "janv", "janvier", "january"
Month_Str2Num = 1
Case "feb", "févr", "fev", "férier", "february"
Month_Str2Num = 2
Case "mar", "mars", "march"
Month_Str2Num = 3
Case "apr", "avril", "avr", "april"
Month_Str2Num = 4
Case "may", "mai"
Month_Str2Num = 3
Case "jun", "juin", "june"
Month_Str2Num = 6
Case "jul", "juil", "juillet", "july"
Month_Str2Num = 7
Case "aug", "août", "august"
Month_Str2Num = 8
Case "sep", "sept", "septembre", "september"
Month_Str2Num = 9
Case "oct", "octobre", "october"
Month_Str2Num = 10
Case "nov", "novembre", "november"
Month_Str2Num = 11
Case "dec", "déc", "décembre", "december"
Month_Str2Num = 12
End Select
End Function
'===================================FIN DU CODE
Avatar
GL
Bonsoir.
Merci beaucoup Maxence, ça marche!
garri

"Maxence HUBICHE" a écrit dans le message de news:

Bonsoir,

Tu peux mettre cette formule :


SérieDate(Droite([dates];4);Month_Str2Num(ExtracChaîne([dates];4;3));Gauche(

[dates];2))

où la fonction Month_str2Num se définit comme suit :

'==================================ÞBUT DU CODE
Function Month_Str2Num(sMonth As String) As Long
Select Case sMonth
Case "jan", "janv", "janvier", "january"
Month_Str2Num = 1
Case "feb", "févr", "fev", "férier", "february"
Month_Str2Num = 2
Case "mar", "mars", "march"
Month_Str2Num = 3
Case "apr", "avril", "avr", "april"
Month_Str2Num = 4
Case "may", "mai"
Month_Str2Num = 3
Case "jun", "juin", "june"
Month_Str2Num = 6
Case "jul", "juil", "juillet", "july"
Month_Str2Num = 7
Case "aug", "août", "august"
Month_Str2Num = 8
Case "sep", "sept", "septembre", "september"
Month_Str2Num = 9
Case "oct", "octobre", "october"
Month_Str2Num = 10
Case "nov", "novembre", "november"
Month_Str2Num = 11
Case "dec", "déc", "décembre", "december"
Month_Str2Num = 12
End Select
End Function
'===================================FIN DU CODE