I read a fantastic tip on how calculating the age. I put to consideration this other way, perhaps not so precise, but very, very easy...
PassedTime := @Today - Date;
Age := @Integer(PassedTime/31536000);
@Prompt([ok]; ""; @Text(Age) + " years.")