Format de date

[malabarbe]

Bonsoir,

mydate = "12/09/2010"

Je voudrais transformer cette date
en quelque chose comme : 40521

Comment le faire ?

 

[Cousinhub]

Re : Format de date

Bonjour,

Comme ceci?

Sub date_en_nombre()
Dim MyDate As Long
MyDate = CDate("12/09/2010")
End Sub

Remarque que je ne convertis pas ta date, il suffit de déclarer ta variable en "Long"...

Cependant, le résultat n'est pas : 40521, mais 40433...

Bonne nuit

Edit :

Pour argumenter un peu mes propos, et afin que la conversion via CDate ne t'envoie sur de fausses pistes, ce code suffit (Date donne la date du jour)

Sub date_en_nombre2()
Dim MyDate As Long
MyDate = Date
End Sub

Tu obtiens ainsi la date du jour sous format numérique

 

[malabarbe]

Re : Format de date

Bonsoir bhbh,

Super, cela fonctionne
J'ai maintenant le bon nombre

Merci pour le coup de main

@ +