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