Anzahl Sekunden seit 1.3.2000 - hin und zurück

[Reinhardtinho]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  scanTime : TDateTime;
  seconds  : Integer;
begin
  seconds  := 310000000;
  scanTime := StrToDatetime('01.03.2000') + seconds / SecsPerday;
  ShowMessage(DateToStr(scanTime));
end;