FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Conocer Edad desde fecha de nacimiento!!
Hola a todos y a todas.
De antemano gracias a todos por interesarse en mi pregunta. Hoy tengo un nuevo problema y se trata de actualizar un campo de una tabla con la edad de un cliente, conociendo su fecha de nacimiento. El campo es tomado desde la tabla descrita anteriormente La tabla se encuentra en una base de datos en Interbase Gracias... |
#2
|
||||
|
||||
Aquí tienes dos funciones para lograr lo que deseas:
Código:
Function MarcosZorrillaEdad(FechaNacimiento : TDate) : Integer; Var an, mn, dn : Word; ahoy, mhoy, dhoy : Word; Begin DecodeDate(FechaNacimiento, an, mn, dn); DecodeDate(Now, ahoy, mhoy, dhoy); If (mn > mhoy) or((mn = mhoy) and (dn > dhoy)) then Result:=ahoy - an - 1 else Result:=ahoy - an; End; function DelphiComAr(AFechaNacimiento: TDateTime) : Integer; begin Result := Trunc((Date - AFechaNacimiento) / 365.25); end;
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
|||
|
|||
Si te sirve,
(cast (floor((current_date-fecha_nacimiento)/365.25) as smallint)) O lo utilizas con el update o como yo suelo hacer, almaceno el campo fecha_nacimiento y añado a la tabla un campo calculado EDAD cuyo cálculo es el que te indico... |
|
|
|