Bonsoir à tous,
J'ai besoin de comparer 3 ou 4 dates entres elles pour vérifier leur cohérence. Les dates sont saisies dans une text box sous format jj/mm/aaaa
date1 = date de départ de France
date2 = date d'entrée dans le pays
date3 = date de livraison du visa
la date 2 doit être > ou = à la date 1
la date 3 doit être < ou = à la date 1 avec un warning si elle est égale.
J'ai essayé :
Private Sub Testing()
date1 = TextBox13.Value
MsgBox Int(date1)
date2 = TextBox17.Value
MsgBox Int(date2)
date3 = TextBox21.Value
MsgBox Int(date3)
If Int(date1) < Int(date2) Then
MsgBox "ERREUR : date entrée antérieure a date de départ"
Else
If Int(date3) > Int(date2) Then
MsgBox "ERREUR : date retour visa supérieure a date de départ"
End If
End If
End Sub
en mettant un call testing à la fin de la saisie de ma dernière date mais ca ne marche pas...
Merci de vos lumières
J'ai besoin de comparer 3 ou 4 dates entres elles pour vérifier leur cohérence. Les dates sont saisies dans une text box sous format jj/mm/aaaa
date1 = date de départ de France
date2 = date d'entrée dans le pays
date3 = date de livraison du visa
la date 2 doit être > ou = à la date 1
la date 3 doit être < ou = à la date 1 avec un warning si elle est égale.
J'ai essayé :
Private Sub Testing()
date1 = TextBox13.Value
MsgBox Int(date1)
date2 = TextBox17.Value
MsgBox Int(date2)
date3 = TextBox21.Value
MsgBox Int(date3)
If Int(date1) < Int(date2) Then
MsgBox "ERREUR : date entrée antérieure a date de départ"
Else
If Int(date3) > Int(date2) Then
MsgBox "ERREUR : date retour visa supérieure a date de départ"
End If
End If
End Sub
en mettant un call testing à la fin de la saisie de ma dernière date mais ca ne marche pas...
Merci de vos lumières