Déterminer l’age d’une personne                  

wpe2.gif (1107 octets)exemple.mdb

 

Function Age<(datenaissance, aujourdhui) as integer
'But : Déterminer le nombre d'années entre deux dates
If Month(Aujourdhui) < Month(DateNaissance) Or (Month(Aujourdhui) = Month(DateNaissance) And Day(Aujourdhui) < Day(DateNaissance)) Then
Age = Year(Aujourdhui) - Year(DateNaissance) - 1
Else
Age = Year(Aujourdhui) - Year(DateNaissance)
End If
End Function