Me suena que hay una función, pero como no tengo el Delphi delante....
Código:
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
Cita:
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