Bonjour à vous...
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
19
20
21
22
23
24
25
26
Private Sub TextBox17_AfterUpdate()
 
Dim dateEntrée As Date
Dim age As Integer, NbAnnées As Integer, NbMois As Integer, nbJours As Integer
 
    If IsDate(TextBox17) Then
 
        dateEntrée = TextBox17.Value
            NbAnnées = (Year(Now()) - Year(dateEntrée))
            NbMois = (Month(Now()) - Month(dateEntrée))
            nbJours = (Day(Now()) - Day(dateEntrée))
 
        If NbAnnées > 0 And NbMois > 0 Then
            age = NbAnnées
            ElseIf NbAnnées > 0 And NbMois = 0 And nbJours >= 0 Then
            age = NbAnnées
            Else
             age = NbMois
        End If
            Lb_age.Caption = age & " ans"
 
   Else
       Lb_age.Caption = 0
 
 End If
End Sub
Ce code ci-dessus marche correctement quand je saisis une autre date mais quand je saisis la date de 1998 c'est à dire 19/12/1998, j'obtiens un âge négatif.
Qu'est ce qui fait que la seule date mentionnée (19/12/1998)donne un âge négatif alors que les autres donnent correctement l'âge voulu?
Merci de m'aider