Erreur sur isdate textbox
Résolu
Sormick
Messages postés
146
Date d'inscription
Statut
Membre
Dernière intervention
-
sormick -
sormick -
Bonjour,
sur une textbox je saisis des dates sur ce format 28.05.2015
j'ai une macro qui doit me détecter si la date saisie est fausse
la voici:
mais si je saisis la date 05.13.2015 cette date n'est pas refusée alors que le mois 13 n'existe pas!!!
sur une textbox je saisis des dates sur ce format 28.05.2015
j'ai une macro qui doit me détecter si la date saisie est fausse
la voici:
if not isdate(format(replace(textbox1,".","/"),"MM/DD/YYYY")) goto erreursaisie end if
mais si je saisis la date 05.13.2015 cette date n'est pas refusée alors que le mois 13 n'existe pas!!!
j'ai essayé avec dd/mm/yyyy et mm/dd/yyyy et ça ne fonctionne pas
J'ai lu un peu sur isdate() et voila sa description
Public Function IsDate(ByVal Expression As Object) As Boolean
IsDate retourne True si Expression est de type de données Date ou peut être converti en Date ; sinon, il retourne False.
Donc, que ce soit 05/13/2015 ou 13/05/2015, Il se fout du format et accepte les deux. Donc isdate valide que ca PEUT être une date, mais ne valide pas que c'est une date selon le format désiré.
Sub Macro1()
Dim test As Boolean
test = IsDate("12/15/15") 'Retourne vrai, c'est une date ou peut être converti en
test = IsDate("15/12/15") 'Retourne vrai
test = IsDate("15/15/15") 'Retourne faux
End Sub