Benachrichtungen

[t.roller]

Delphi-Quellcode:

//uses DateUtils;
procedure TForm1.Button4Click(Sender: TObject);
var mydate : TDateTime;
begin
  myDate:= now;
// Add 10 days to this date
  myDate := IncDay(myDate, 10);
  ShowMessage('myDate + 10 days = '+DateToStr(myDate));
end;