For calculating a person's age, Courtesy of Ken Getz, Mike Gilbert, VBA Developers Handbook:
Function dhAge(dtmBD As Date, Optional dtmDate As Date = 0) _
As Integer
' This procedure is stored as dhAgeUnused in the sample
' module.
Dim intAge As Integer
If dtmDate = 0 Then...