J'ai un USF avec deux textbox "Date de naissance et Mois ou Année". Est il possible d'avoir un code qui me permet de calculer l'âge en mois ou en année.
Ci-joint mon fichier qui seras plus parlant.
Je vous remercie par avance et vous souhaite une bonne journée
bonjour apdf,phlaurent
une autre
Private Sub TextBox1_Change()
If TextBox1 <> "" Then
TextBox2 = DateDiff("m", CDate(TextBox1), Date)' en mois
'ou
'TextBox2 = DateDiff("yyyy", CDate(TextBox1), Date)'en année
End If
après lecture réponse apdf à phlaurent
Private Sub TextBox1_Change()
If TextBox1 <> "" Then
diff = Year(Date) - Year(CDate(TextBox1))
If diff > 1 Then
TextBox2 = DateDiff("yyyy", CDate(TextBox1), Date)
Else
TextBox2 = DateDiff("m", CDate(TextBox1), Date)
End If
End If
Private Sub CommandButton2_Click()
Dim i As Integer
i = DateDiff("m", CDate(TextBox1), Date, 2, 2)
TextBox2 = IIf(i < 12, i & " mois", Int(i / 12) & " ans")
End Sub