Cita:
Empezado por 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
|
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';