FunctionCalcAge(datEmpDateOfBirthasVariant)asIntegerCalcAge=Int(DateDiff("y",datEmpDateOfBirth,Date())/365.25)EndFunction->