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;
... 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;