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