Calcular Edad

[Ivan A. Garcia]

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

[roman]

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

// Saludos

[sgautier]

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';

[enecumene]

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

Edad := IntToSTr(YearsBetween(Cumple, Hoy))+' Años';

Saludos.