Foros Club Delphi - Calcular Edad

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Calcular Edad (https://www.clubdelphi.com/foros/showthread.php?t=59123)

Señores:

capturo la edad en un DATATIME con el siguiente formato......YYYY/MM/DD.

Necesito saber como calcular para que al digitar dicha fecha, me calcule la edad en años.

muchas gracias

En la unidad DateUtils hay una función YearsBetween; yo creo que ésa te sirve.

// Saludos

Cita:

Empezado por Ivan A. Garcia (Mensaje 307426)

Señores:

capturo la edad en un DATATIME con el siguiente formato......YYYY/MM/DD.

Necesito saber como calcular para que al digitar dicha fecha, me calcule la edad en años.

muchas gracias

es posible que esto te sirva

Total:=(Date - Pac['Fecha_Nac']);
QrLabel22.Caption := DateToStr(Date);
Anos:=Int(Total/365);
Meses:=Int(((Total/365) - Anos)*12);
Edad:=IntToStr(Anos)+'.'+IntToStr(Meses);
If Anos=0 Then
Edad_Impr:=IntToStr(Meses)+' Meses'
Else
Edad_Impr:=IntToStr(Anos)+'.'+IntToStr(Meses)+' años';

Con la solución de Roman no hay que complicarse mucho la vida, es tan simple como:

Código Delphi [-]Edad := IntToSTr(YearsBetween(Cumple, Hoy))+'  Años';

Saludos.