Function Age(DateDeNaissance As Date) As String
Années = DateDiff("yyyy", DateDeNaissance, Now())
Mois = DateDiff("m", DateAdd("yyyy", Années, DateDeNaissance), Now())
Jours = DateDiff("d", DateAdd("m", Mois, DateAdd("yyyy", Années, DateDeNaissance)), Now())
Age = Années & " an(s) " & Mois & " mois " & Jours & " jour(s)"
End Function