Je cherche la formule magique qui permet de calculer l'age d'une personne par rapport à la date du jour.
Par exemple, pour une personne née le 10/06/1987, obntenir '13 ans et 8 mois'
Si qqun pouvait m'aider ce serait hyper sympa, merci

J-Marc
amstel@amstelsoft.com
http://www.amstelsoft.com

Exemple de Code :
z = DateDiff("m", Text1, Date)
a$ = CStr(z 12) + " ans "
z = z - (z 12) * 12
If z <> 0 Then
a$ = a$ + "et " + CStr(z) + " mois"
End If

Si on a : 10/06/1987 dans Text1
On aurra a$ = "13 ans et 8 mois"

Questions : Int19h@usa.net

a+

Salut,
J?ai esayé comme ça:
a$=str$(val(z\12)) 'Le val est une sécurité en trop...
Puis:
z=z- 12*val(z\12)
Et ça marche.
Marc

-------------------------------
Réponse au message :
-------------------------------

Exemple de Code :
z = DateDiff("m", Text1, Date)
a$ = CStr(z 12) + " ans "
z = z - (z 12) * 12
If z <> 0 Then
a$ = a$ + "et " + CStr(z) + " mois"
End If

Si on a : 10/06/1987 dans Text1
On aurra a$ = "13 ans et 8 mois"

Questions : Int19h@usa.net

a+