Erreur sur isdate textbox Résolu

Question

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:
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!!!

PlacageGranby · Answer

Bonjour,

Rapidement,  mm/dd/yyyy  donc le 05.13.2015 c'est le 13 mai 2015 ?

pijaku · Answer

Bonjour tout le monde,

Et oui... L'éternel problème des dates dans des textbox...
String vs Date ! Combat éternel en VB.

Bon.
Puisque IsDate ne peut pas traiter to souci, il convient de te créer, toi-même avec tes petites mains, ta propre fonction de vérification.
Ou alors de prendre la mienne...
Que voici :

Function EstUneDate(maDate As String) As Boolean
Dim Jour As Integer, Mois As Integer, Annee As Integer
'vérifie qu'une date est bien écrite au format jj/mm/aaaa

EstUneDate = False
On Error GoTo TraiteErreur
'une date = 10 caractères
If Len(maDate) <> 10 Then GoTo TraiteErreur
'dont 2 /
If Len(maDate) - Len(Replace(maDate, "/", "")) <> 2 Then GoTo TraiteErreur
'extrait le jour (deux premiers chiffres)
Jour = CInt(Left(maDate, 2))
If Jour < 1 Then GoTo TraiteErreur
'extrait le mois (les deux chiffres suivants le premier /)
Mois = CInt(Mid(maDate, 4, 2))
If Mois < 1 Or Mois > 12 Then GoTo TraiteErreur
'extrait l'année (les 4 derniers chiffres)
Annee = CInt(Right(maDate, 4))
Select Case Mois
    Case 1, 3, 5, 7, 8, 10, 12 'mois de 31 jours
        If Jour > 31 Then GoTo TraiteErreur
    Case 4, 6, 9, 11 'mois de 30 jours
        If Jour > 30 Then GoTo TraiteErreur
    Case 2 'mois de février
        If Annee Mod 4 = 0 And (Annee Mod 100 <> 0 Or Annee Mod 400 = 0) Then
            'années bissextiles
            If Jour > 29 Then GoTo TraiteErreur
        Else
            'années NON bissextiles
            If Jour > 28 Then GoTo TraiteErreur
        End If
End Select

EstUneDate = True
TraiteErreur:
Exit Function
End Function

Code appelant adapté à ton cas :

If Not EstUneDate(Format(Replace(TextBox1, ".", "/"), "MM/DD/YYYY")) Then
GoTo erreursaisie
End If

ATTENTION : ne fonctionne pas avec le format : "DD/MM/YYYY"
Dans ce cas, prière d'inverser Mois et Jour.

Erreur sur isdate textbox

2 réponses

Discussions similaires

Newsletters