Código Delphi [-] var CantDias : Integer; FchCaducidad : TDateTime; begin //Añadimos la cantidad de años a la fecha inicio FchCaducidad := IncYear(fecha_inicial, duracion); //Calculamos la cantidad de dias entre las dos fechas CantDias := DaysBetween(fecha_actual,FchCaducidad); end;
var CantDias : Integer; FchCaducidad : TDateTime; begin //Añadimos la cantidad de años a la fecha inicio FchCaducidad := IncYear(fecha_inicial, duracion); //Calculamos la cantidad de dias entre las dos fechas CantDias := DaysBetween(fecha_actual,FchCaducidad); end;