'
' Calculates age in years from a given date to today's date.
'
'

Function Age(varBirthDate As Variant) As Integer

   Dim varAge As Variant
   if not isDate(varBirthDate) then Exit Function
   varAge = DateDiff("yyyy", varBirthDate, Now)
   If Date < DateSerial(Year(Now), Month(varBirthDate), _
                        Day(varBirthDate)) Then
      varAge = varAge - 1
   End If
   Age = CInt(varAge)
   
End Function