Voilà j'ai un formulaire à developper, et je dois entrer les infos des
élèves d'un lycée. Donc j'ai un Textbox Date de naissance, je l'entrer
au format JJ/MM/AAAA, et j'aimerai que sur le texbox du dessous
apparaisse l'age calculé directement. Merci pour votre aide.
des coups feux en l'air,
des feux d'artifices,
des cowgirls, des callgirls aussi ;-), des kdo, des ptites bulles de champ, wai, c'est vrai, a y réfléchir mieux, c'est pas si mal finalement
Enjoy
( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )
Private Sub Txtdatenaiss_Change()
If IsDate ( Txtdatenaiss.Text ) Then
Txtage.Text = CStr ( int(datediff ( "D", cdate(Txtdatenaiss.Text), date) / 365.25) ) & " ans"
Else
Txtage.Text = VbNullString
End If
End Sub