Calcular la edad execta de una persona

[marcoszorrilla]

Aquí tienes la función que yo utilizo:

Código Delphi [-]
 Function Edad(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;

Esta otra es de Federico Firenze:

Código Delphi [-]
 function DelphiComAr(AFechaNacimiento: TDateTime) : Integer;
 begin
   Result := Trunc((Date - AFechaNacimiento) / 365.25);
 end;

Un Saludo.