*? CalcAge(DATE(1965, 4, 26), DATE(2004,4,27)) FUNCTION CalcAge(b_day, to_date) LOCAL fmnts, smnts fmnts = YEAR(b_day) *12+MONTH(b_day) IF MONTH(to_date) == MONTH(b_day) .AND.; && If The day is smaller then day of birthday the person has not complete full year DAY(to_date) < DAY(b_day) smnts = YEAR(to_date)*12+(MONTH(to_date)-1) ELSE smnts = YEAR(to_date)*12+MONTH(to_date) ENDIF RETURN INT((smnts-fmnts)/12)