'*********************************************************************
' FUNCTION Age( varStartDate, varEndDate)                   Access 2.0
' Returns Age in years
'*********************************************************************
Function Age( varStartDate As Variant, varEndDate as Variant )
Dim varYrs As Variant
varYrs = DateDiff("yyyy", varStartDate, varEndDate)
If varEndDate < DateSerial(Year(varEndDate), Month(varStartDate), Day(varStartDate)) Then
   varYrs = varYrs - 1
End If
Age = varYrs
End Function

'*********************************************************************
' FUNCTION AgeNow( varDateOfBirth )                        Access 2.0
' Returns current age in years based on todays date
'*********************************************************************
Function AgeNow( varDateOfBirth As Variant )
Dim varYrs As Variant
varYrs = DateDiff("yyyy", varDateOfBirth, Now)
If Date < DateSerial(Year(Now), Month(varDateOfBirth), Day(varDateOfBirth)) Then
   varYrs = varYrs - 1
End If
AgeNow = varYrs
End Function