Procedimiento para sacar edad

En realidad este procedimiento lo desarrolle y me ha sacado de apuros, disculpen alguna falla pero talves les saque de apuros y les ahorre tiempo
//En la resta obtenemos la cantidad de dias hasta la fecha
&calc = FECHA_REFERENCIA - FECHA_NACIMIENTO
//Calculamos los anos
&anios = int(&calc / 365)
//Obtenemos los dias restantes una vez sacado los anos
&calc1 = &calc - (int(&anios) * 365)
//Calculamos cuantos viciestos paso para restar de los meses
//de febrero
&bici = int(&anios / 4)
//Restamos los dias que quedaron cuando calculamos los anos
//menos el numeros de anos biciestos
&calc2 = &calc1 - &bici
//Al igual que los anos sacamos los meses, dividiendo para 30 por ser un promedio
&meses = int(&calc2 / 30)
//Calculamos los dias que nos sobran en los meses
&calc2 = &calc2 - (int(&meses) * 30)
//Los dias sobrados se asignan a dias de vivencia
&dias = &calc2
If &meses = 12
&anios += 1
&meses = 0
EndIf
&Edad = trim(str(&anios)) + ' ' +trim('años') + trim(':') + ' ' + trim(str(&meses)) + ' ' + trim('meses') + ':' + ' ' + trim(str(&dias)) + ' ' + trim('dias')
Return