Foros Club Delphi - Conocer Edad desde fecha de nacimiento!!

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

- Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)

- - Conocer Edad desde fecha de nacimiento!! (https://www.clubdelphi.com/foros/showthread.php?t=7034)

subzero

30-01-2004 21:08:19

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...

marcoszorrilla

30-01-2004 22:27:12

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;

Un Saludo.

Carlitos

16-02-2004 12:40:58

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...

La franja horaria es GMT +2. Ahora son las 00:05:46.