WhilePrintingRecords;
//Years
//0.25 accounts for leap year
numbervar Y := (currentdate- {BIRTHDATE})/365.25;

//Months
//30.4375 = 365.25/12 average number of days in a month

numbervar M := Remainder((currentdate- {BIRTHDATE}),365.25)/30.4375;

// check for Months = 12
if truncate(M) = 12
then months := truncate(Y)+1
else months := (truncate(Y) * 12 + truncate(M) );