Compléments pour Microsoft Access

http://access.fr.free.fr/

Age d'une personnes (Dates & Heures)

Description 

Cette fonction permet de l'age d'une personne en fonction de sa date d'anniversaire.

 
Synthaxe 

Expression_Numérique = Age(dtBirthDay)

La synthaxe de la fonction Age comprend l'élément suivant :

ElémentsDescription

dtBirthDay

Expression de type Date correspondant à la date d'anniversaire d'une personne.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


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