Bonjour à vous...
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.
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
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
Partager