Private Function Age(ByRef vdBirthDate As Date, Optional ByVal vdNow As Date) As Long If vdNow = 0 Then vdNow = Now End If Age = Fix(DateDiff("D", vdBirthDate, vdNow) / 365.25) End Function