Convertir une date mardi 7 janvier 2002 en 07/01/02

Question

Bonjour à tous,

Je connais la fonction qui permet de transformer une date 07/01/02 en mardi 7 janvier 2002 mais pas l'inverse.

Ma question :
Cette fonction existe t'elle ? 

Regards

Gilardh

cs_Crazyht · Answer

Reponse : NON faut l'ecrire a la main 

A++

Crazyht :)

cs_rene38 · Answer

Mais si !!!!

Aujourd_hui = "mardi 7 janvier 2003" 'EH OUI, ON EST EN 2003 !!!
'on supprime "mardi"
MaDate = Mid(Aujourd_hui, InStr(Aujourd_hui, " "))
'et on convertit
MsgBox CDate(MaDate)

cs_rene38 · Answer

ou bien 

MsgBox Format(CDate(MaDate), "dd/mm/yy")
 si tu veux 03 au lieu de 2003

gilardh · Answer

gilardh

gilardh · Answer

Bonjour et merci rene38,

La fonction cdate ne fonctionne pas si je converti des mois sans accent (cela peux arriver car la saisie est manuelle).
J'ai donc pour le moment créé une fonction qui prend en charge les cas particuliers.

Public Function moisEnChiffre(zeMois As String)
Select Case LCase(zeMois)
    Case "janvier"
        moisEnChiffre = "01"
    Case "février", "fevrier"
        moisEnChiffre = "02"
    Case "mars"
        moisEnChiffre = "03"
    Case "avril"
        moisEnChiffre = "04"
    Case "mai"
        moisEnChiffre = "05"
    Case "juin"
        moisEnChiffre = "06"
    Case "juillet"
        moisEnChiffre = "07"
    Case "août", "aout"
        moisEnChiffre = "08"
    Case "septembre"
        moisEnChiffre = "09"
    Case "octobre"
        moisEnChiffre = "10"
    Case "novembre"
        moisEnChiffre = "11"
    Case "décembre", "decembre"
        moisEnChiffre = "12"
    Case Else
        moisEnChiffre = "  "
End Select
End Function

regards

gilardh

Convertir une date mardi 7 janvier 2002 en 07/01/02

5 réponses

Discussions similaires