Age d'une personne


Cette fonction permet de donner l'age d'une personne en fonction d'une date de naissance.

L'argument "dtBirthDay" correspond à la date de naissance servant de base pour le calcul de l'age.

Function Age(dtBirthDay As Date) As Integer

Age = DateDiff("yyyy", dtBirthDay, DATE)
Select Case Month(dtBirthDay)
    Case Is > Month(DATE)
        Age = Age - 1
    Case Month(DATE)
        If day(dtBirthDay) > day(DATE) Then Age = Age - 1
End Select

End Function

Cette fonction retournera une donnée numérique correspondant à l'age de la personne.

 

Retour haut de page

Auteur : Jessy SEMPERE