Description

calculate someones age

Author

Anon

Code

Function CalcAge(datEmpDateOfBirth As Variant) As Integer
CalcAge = Int(DateDiff("y", CDate(datEmpDateOfBirth), Date) / 365.25)
End Function

Information

tested using VB6

Download

calcage.txt