Mois en nombre..

Salut,

"Kevin"
Je cherche à faire une fonction qui me permettrait de
transformer le mois en anglais ("January", "February",
"March", "April", "May", "June", "July", "August",
"September", "October", "November", "December") par le
numéro de ce mois.

Exemple: September --> 09



Hmmm...

Avant d'avoir le nom des mois, tu avait bien des dates ?
Et, partant d'une *vrai* date, il est simple d'en extraire ce que l'on souhaite!

Par exemple: Month(LaDate)


Sinon, tu peux essayer avec :

Month(CDate("1 " & TonChampQuiContientLeMot & " 2005")

mais, cela ne fonctionne que si le nom du mois est dans la même langue
que les paramètres régionaux...

Plus sûr, sera d'utiliser un petite fonction:
(la première sera plus rapide que la seconde)

Function NumeroMois(strMois) As Integer
If IsNull(strMois) Then
NumeroMois = 0
Exit Function
End If
Select Case strMois
Case "january", "janvier"
NumeroMois = 1
Case "february", "février"
NumeroMois = 2
Case "march", "mars"
NumeroMois = 3
Case "april", "avril"
NumeroMois = 4
Case "may", "mai"
NumeroMois = 5
Case "june", "juin"
NumeroMois = 6
Case "july", "juillet"
NumeroMois = 7
Case "august", "août"
NumeroMois = 8
Case "september", "septembre"
NumeroMois = 9
Case "october", "octobre"
NumeroMois = 10
Case "november", "novembre"
NumeroMois = 11
Case "december", "décembre"
NumeroMois = 12
Case Else
NumeroMois = 0
End Select

End Function

' ou celle-ci :

Function NumMois(sMois) As Integer
NumMois = Switch(sMois = "January", 1, _
sMois = "February", 2, _
sMois = "March", 3, _
sMois = "April", 4, _
sMois = "May", 5, _
sMois = "June", 6, _
sMois = "July", 7, _
sMois = "August", 8, _
sMois = "September", 9, _
sMois = "October", 10, _
sMois = "November", 11, _
sMois = "December", 12)

End Function



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw

Salut,

Merci pour ton aide, je vais essayer ces fonctions.

Non, dès le début j'ai les mois en anglais et en dure...

-----Message d'origine-----
Salut,

"Kevin"
Je cherche à faire une fonction qui me permettrait de
transformer le mois en anglais ("January", "February",
"March", "April", "May", "June", "July", "August",
"September", "October", "November", "December") par le
numéro de ce mois.

Exemple: September --> 09



Hmmm...

Avant d'avoir le nom des mois, tu avait bien des dates ?
Et, partant d'une *vrai* date, il est simple d'en
extraire ce que l'on souhaite!

Par exemple: Month(LaDate)


Sinon, tu peux essayer avec :

Month(CDate("1 " & TonChampQuiContientLeMot & " 2005")

mais, cela ne fonctionne que si le nom du mois est dans la
même langue

que les paramètres régionaux...

Plus sûr, sera d'utiliser un petite fonction:
(la première sera plus rapide que la seconde)

Function NumeroMois(strMois) As Integer
If IsNull(strMois) Then
NumeroMois = 0
Exit Function
End If
Select Case strMois
Case "january", "janvier"
NumeroMois = 1
Case "february", "février"
NumeroMois = 2
Case "march", "mars"
NumeroMois = 3
Case "april", "avril"
NumeroMois = 4
Case "may", "mai"
NumeroMois = 5
Case "june", "juin"
NumeroMois = 6
Case "july", "juillet"
NumeroMois = 7
Case "august", "août"
NumeroMois = 8
Case "september", "septembre"
NumeroMois = 9
Case "october", "octobre"
NumeroMois = 10
Case "november", "novembre"
NumeroMois = 11
Case "december", "décembre"
NumeroMois = 12
Case Else
NumeroMois = 0
End Select

End Function

' ou celle-ci :

Function NumMois(sMois) As Integer
NumMois = Switch(sMois = "January", 1, _
sMois = "February", 2, _
sMois = "March", 3, _
sMois = "April", 4, _
sMois = "May", 5, _
sMois = "June", 6, _
sMois = "July", 7, _
sMois = "August", 8, _
sMois = "September", 9, _
sMois = "October", 10, _
sMois = "November", 11, _
sMois = "December", 12)

End Function



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw