Realice un proceso más corto.. .para poder calcular la edad en
Años y Meses
Código:
label7.Caption :=Concat(IntToStr(Trunc(Date - nacimiento.Date) div 365),' Años ',IntToStr((Trunc(Date - nacimiento.Date) - (Trunc(Date - nacimiento.Date) div 365) * 365) div 30),' Meses');
Explicación:
Con
Código:
(Trunc(Date - nacimiento.Date) div 365)
el codigo anterio me calculo la cantidad de años...
Código:
( Trunc(Date - nacimiento.Date) - (Trunc(Date - nacimiento.Date) div 365) * 365) div 30
el codigo anterior me calcula los meses
Se supone que
nacimeinto.date es un dato en formato de fecha que contiene la
fecha_nacimiento y date muestra la
fecha_actual... todo esto lo despliego en un label.
Espero que sirva..