pb de date

Question

Lorsque je rentre la date 02/14/2003 (inexistante en France), le programme me la transforme en 14/02/2003 et donc en date anglo-saxonne.
Comment faire pr éviter cette transformation immédiate ?

omarfla · Answer

il existe une fonction prédéfinie que vous pouvez l"utiliser à résourdre ton problème c'est : Format(votredate,"dd mm yyyy")

OmarIX

cs_CanisLupus · Answer

Salut, 

Si tu veux tester la saisie d'une date, tu codes :
If IsDate(text1.text) Then
  'c bon
else
  'c pas bon
endif

ça tient compte des paramètres régionnaux.

maintenant, <omarfla> n'a pas tord pour le formatage de la date quoique dans ton cas, j'aurais codé : 
Format(votredate,"dd/mm/yyyy") mais seulement pour les tests ou l'enreg dans une base.

Cordialement

CanisLupus

cs_rene38 · Answer

... Problème :IsDate("02/14/2003") IsDate("14/02/2003") Vrai !

cs_CanisLupus · Answer

Autant pour moi et avait raison, à la place de IsDate(text1.text) il faudrait coder : IsDate(Format(text1.text, "dd/mm/yyyy")) G testé et ça marche. J'avais oublié car je me sers maintenant des composants "calendar" et avec ça je n'ai plus de prob avec les saisies utilisateurs. Cordialement CanisLupus

cs_rene38 · Answer

Encore désolé mais

Isdate(Format("05/14/2003","dd/mm/yyyy")) = Vrai

Isdate(Format("14/05/2003","dd/mm/yyyy")) = Vrai

omarfla · Answer

si je comprend vous voulez comparez deux date voilà la fonction : CDate()

ex : if CDate(text1.text) > CDate(text1.text) then 
           msgbox " c bon "
           else
           msgbox " c pas bon "
       end if

OmarIX

cs_CanisLupus · Answer

, j'avoue mon incompétence là-dessus car je le répète, je ne fais plus confiance depuis longtemps aux saisies de date des utilisateurs. Je me débrouille autrement. Mais, si tu as une soluce miracle, je pense que sera content de l'apprendre car, je le rappelle, c lui qui a un problème. Cordialement CanisLupus

Pb de date

7 réponses

Discussions similaires