Calculo de Años

[__cadetill]

Me suena que hay una función, pero como no tengo el Delphi delante....

var
  D, M, AIni, AFin : Word;
begin
  DecodeDate(AFin, M, D, Date);
  DecodeDate(AIni, M, D, TablaCampoFecha.AsDateTime);
  ShowMessage('Diferencia de años : ' + IntToStr(AFin - AIni));
end;

PD: Frases como esta

Empezado por jrcosta75

Precisaria que si se puede me pasen todo el codigo completo del calculo

no suelen gustar. Así que te aconsejo no ponerlas. Aquí se ayuda, pero no se trabaja para nadie