Comparer des dates en VBA

[Pascal27]

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

 

[job75]

Re : Comparer des dates en VBA

Bonjour Pascal,

Au lieu de Int utiliser CDate.

Edit : si vous voulez la date sans les heures, utiliser Int(CDate(Date1))

A+

 

[Pascal27]

Re : Comparer des dates en VBA

Bonjour à tous,

Merci à toi Job75, ça marche.

A bientôt pour d'autres questions...