FunctionCalcAge(datEmpDateOfBirthasVariant)asInteger
CalcAge=Int(DateDiff(“y”,datEmpDateOfBirth,Date())/365.25)
EndFunction->
FunctionCalcAge(datEmpDateOfBirthasVariant)asInteger
CalcAge=Int(DateDiff(“y”,datEmpDateOfBirth,Date())/365.25)
EndFunction->