Calculer l'age d'une personne

Question

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

int19h · Answer

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+

Marc · Answer

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

Calculer l'age d'une personne

2 réponses

Discussions similaires