Conocer Edad desde fecha de nacimiento!!

[subzero]

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]

Aquí tienes dos funciones para lograr lo que deseas:

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]

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