* GetAge( tdDOB, tdAgeAt) LOCAL ldDate, lnMonths, lnYears, lnMonths, lcReturn lnMonths = 0 ldDate = tdDOB DO WHILE ldDate <= tdAgeAt IF GOMONTH(ldDate,12) <= tdAgeAt lnYears = lnYears + 12 ldDate = GOMONTH(ldDate,12) LOOP ELSE EXIT ENDIF ENDDO DO WHILE ldDate <= tdAgeAt lnMonths = lnMonths + 1 ldDate = GOMONTH(ldDate,1) ENDDO IF lnYears > 0 IF lnMonths > 0 lcReturn = TRANSFORM(lnYears) + " years and " + TRANSFORM(lnMonths) + " months" ELSE lcReturn = TRANSFORM(lnYears) + " years" ENDIF ELSE lcReturn = TRANSFORM(lnMonths) + " months" ENDIF RETURN lcReturn