XL 2019 Vba excel Date Inverser

iliess

XLDnaute Occasionnel
bonjour
svp pourquoi mon code prend la date 02/03/2020 au lieu de 03/02/2020 et comment résoudre ce problème.
Merci
inver date.png
 
Solution
Bonsoir

Je te laisse étudier ce petit exemple ;)
VB:
Sub PetitExemple()
Const Le_Deux_Mars = #2/3/2020#
MsgBox Format(Le_Deux_Mars, "dd/mm/yyyy")
MsgBox CDate(Le_Deux_Mars)
MsgBox Format(Le_Deux_Mars, "mm/dd/yyyy")
End Sub
EDITION 2: Bonsoir Dranreb, je n'avais pas vu ton message.
EDITION 1: je n'avais pas vu non plus gbinforme (bonsoir)

Dranreb

XLDnaute Barbatruc
Bonsoir.
Un cas connu c'est quand on affecte à la valeur d'une cellule une valeur String interprétable comme une date par conversion standard internationale. La fonction CDate interprète le texte différemment. C'est ça qu'il faut affecter: = CDate(TextBox1.Text).
 

Staple1600

XLDnaute Barbatruc
Bonsoir

Je te laisse étudier ce petit exemple ;)
VB:
Sub PetitExemple()
Const Le_Deux_Mars = #2/3/2020#
MsgBox Format(Le_Deux_Mars, "dd/mm/yyyy")
MsgBox CDate(Le_Deux_Mars)
MsgBox Format(Le_Deux_Mars, "mm/dd/yyyy")
End Sub
EDITION 2: Bonsoir Dranreb, je n'avais pas vu ton message.
EDITION 1: je n'avais pas vu non plus gbinforme (bonsoir)
 

Discussions similaires

Statistiques des forums

Discussions
314 051
Messages
2 105 056
Membres
109 242
dernier inscrit
zaboul2