Zum Datum Sekunden addieren

[DeddyH]

Ich habe gerade keine DateUtils zur Verfügung (gab es wohl unter Delphi 5 noch nicht), aber das hier geht bei mir einwandfrei:

Delphi-Quellcode:

procedure TFormTest.btnSecsAddClick(Sender: TObject);
var MyTime: TDateTime;
begin
  MyTime := StrToDateTime('04.04.2008 00:00:00');
  MyTime := MyTime + (StrToIntDef(edtSeconds.Text,0) / 86400);
  ShowMessage(DateTimeToStr(MyTime));
end;