XL 2019 Vba excel Date Inverser

iliess · 25 Janvier 2021

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

Staple1600 · 25 Janvier 2021

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)

gbinforme · 25 Janvier 2021

Bonjour,

Pour éviter l'utilisation de date américaine, il est souhaitable d'utiliser la fonction Cdate qui tiens compte des paramètres régionaux.

Dranreb · 25 Janvier 2021

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 · 25 Janvier 2021

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)

iliess · 26 Janvier 2021

Merci beaucoup les amis

XL 2019 Vba excel Date Inverser

iliess

XLDnaute Occasionnel

Staple1600

gbinforme

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

iliess

XLDnaute Occasionnel

Discussions similaires