wie aus eigener systemtime richtiges datum machen??

[Remko]

Delphi-Quellcode:

const
  _SECOND: int64 = 10000000;
  _MINUTE: Int64 = 600000000;
  _HOUR: Int64 = 36000000000;
  _DAY: Int64 = 864000000000;
var
  ft: FILETIME;
  i: Int64;
begin
  // Set filetime to 0 which means January 1, 1601
  ft.dwLowDateTime := 0;
  ft.dwHighDateTime := 0;

  // inc by 30 days
  ft := TFileTime(Int64(ft) + (30 * _DAY));