Discussion :

[PtitGénie]

Bonjour tout le monde !

Question simple, mais je n'ai pas trouvée de réponse sur le forum...
Y a t'il un moyen rapide d'obtenir le mois d'une date sur deux caractères ?
Month(Date) retourne 1 pour janvier, j'aimerais obtenir 01 sans des tonnes de lignes de codes (sans conditions etc.)...

Merci d'avance ^^

[pc75]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
NewDate = String(2 - Len(Trim(Month(Date))), "0") & Month(Date)
msgbox NewDate

[omen999]

salut,

Question simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dDate = CDate("1/2/10")
MsgBox Right("0" & Month(dDate),2)

idem pour le jour: Day au lieu de Month
ça pourrait figurer dans la

[raymix]

Bonjour,

Sans conditions évidement, je n'ai pas mieux, mais...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
mois = Month(Date)
If Len(mois) < 2 Then mois = "0" & mois

...ça n'aloudit pas vraiment le code, et ça se relit facile.

Cordialement

[PtitGénie]

Merci à tous

Ce code est nickel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dDate = CDate("1/2/10")
MsgBox Right("0" & Month(dDate),2)

^^