No declarations

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