Hola:
Lo puedes hacer con una simple resta
Var
edad : extended;
edad := trunc(FechaActual - FechaNacimiento);
o según tu versión de delfi con DaysBetween
Añades en el uses la unit DateUtils
edad := DaysBetween(FechaActual, FechaNacimiento);
No se si va bien, a mi me da 20577
Un saludo.
|