Bonjour.

Je dois comparer la date de naissance d'un usager avec la date actuelle et verifié si l'usager a l'age valide soit entre 18 et 65 ans

le probleme c'est que si l'usager vient et sa date ppour devenir adulte est dans deux jours ca me donne quand meme 18 ....

voici le code....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
                Dim date1 As Date
                date1 = CInt(lstDateNaissanceJour.Text) & "/" & CInt(lstDateNaissanceMois.Text) & "/" & CInt(lstDateNaissanceAnnee.Text)
                date1 = Format(date1, "dd/mm/yyyy")
 
                tmp = DateDiff("yyyy", Now, date1)
                tmp = Abs(tmp)
                If (tmp < 18 Or tmp >= 65) Then ' verifie l'age du client
                    If mdlFonction.verificationLangue = "francais" Then
                        MsgBox "L'âge de l'acheteur doit être entre 18 et 65.", vbExclamation
                        Exit Sub
                    End If
                    If mdlFonction.verificationLangue = "anglais" Then
                        MsgBox "The age of the customer must be between 18 and 65.", vbExclamation
                        Exit Sub
                    End If
 
                End If
Est-ce que j'ai ecrit de quoi de pas correct ????

Merci de m'aider

AngelEvil