[[Al González]]

¡Buen día a todos!

Kwan:

En el grupo MSN Programadores Delphi de México se encuentra una útil biblioteca llamada Interfaz GH, que entre otras cosas cuenta con varias funciones para manejo de fechas y horas (unidad GHTiempo.pas).

Algunas de esas funciones son:

{ Años Completos Entre Fechas }
Function AosCompEntrFech (Const FechInic, FechFina :TDate)
                         :Word;

{ Años Cumplidos }
Function AosCump (Const FechInic :TDate) :Word;

{ Fecha Más Años }
Function FechaMasAos (Const Fecha :TDate;
                      Const Aos :SmallInt) :TDate;

{ Fecha Máxima para Años Cumplidos }
Function FechaMaxiAosCump (Const Aos :Word) :TDate;

{ Fecha Mínima para Años Cumplidos }
Function FechaMiniAosCump (Const Aos :Word) :TDate;

Para el caso que planteas, te sugiero utilizar la función AosCompEntrFech (Años Completos Entre Fechas) de la siguiente manera:

Var
   Aos :Integer;  { Años }
Begin
   Aos := AosCompEntrFech (Fech1, Fech2);

Donde Fech1 es la fecha de nacimiento y Fech2 es 1/oct/2004, según el ejemplo que mencionas.

Espero esto sea de utilidad. Seguimos en contacto.

Al González .