FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Calcular Edad
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 |
#2
|
||||
|
||||
En la unidad DateUtils hay una función YearsBetween; yo creo que ésa te sirve.
// Saludos |
#3
|
|||
|
|||
Cita:
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'; |
#4
|
||||
|
||||
Con la solución de Roman no hay que complicarse mucho la vida, es tan simple como:
Saludos.
__________________
Mi BLOG - ¡Joder, leanse la guia de estilo! Las Palabras son enanas, los ejemplos gigantes. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Calcular EDAD completa | MaMu | Varios | 3 | 29-03-2011 21:29:53 |
Calcular Edad. Funcciones Today. | NSL94 | Varios | 4 | 29-08-2007 03:24:50 |
calcular la edad.... | Goyo | OOP | 16 | 04-07-2007 22:36:53 |
calcular edad | emiliu | Varios | 3 | 28-11-2005 09:58:52 |
Calcular edad | picapiedra | Varios | 4 | 20-12-2004 23:27:29 |
|