Calculer l'age en mois ou en année

[apdf1]

Bonjour,

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

Cordialement

Max

 

[phlaurent55]

Re : Calculer l'age en mois ou en année

Bonjour Max,

avec ceci:

Private Sub TextBox1_Change()
UserForm1.TextBox2.Value = Year(Date) - Year(TextBox1.Value)
End Sub

à+
Philippe

 

[apdf1]

Re : Calculer l'age en mois ou en année

Bonjour Philippe

Je te remercie beaucoup mais sa ne calcul que les années, alors que moi je recherche de calculer les mois si il y a moins d'un an.

Si date est: 01/01/2011 textbox2 = "6"

@+

Max

 

[Bebere]

Re : Calculer l'age en mois ou en anné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

End Sub
à bientôt
End Sub

 

[apdf1]

Re : Calculer l'age en mois ou en année

Bonjour Bebere,

Je te remercie beaucoup "Nickel"

Bonne journée

@+

Max

 

[Pierrot93]

Re : Calculer l'age en mois ou en année

Bonjour à tous,

une autre approche :

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

bonne journée
@+

 

[apdf1]

Re : Calculer l'age en mois ou en année

Bonjour Pierrot

Je te remercie c'est "TOP"

Bonne journée

Max