Manejo de Fechas - Sumar o restar días

[ecfisa]

Hola r1d2m3.

La unit StrUtils tiene la función IncDay a ese fín.

Código Delphi [-]
...
var
  ADate: TDateTime;
begin
  ADate:= IncDay(Date, 1);   // ADate = fecha actual + un día
  ADate:= IncDay(Date, -5);  // ADate = fecha actual - cinco días.
end;

Revisá este link que se trató el tema.


Saludos.