wie aus eigener systemtime richtiges datum machen??

[lbccaleb]

ok alles funzt super, respect

ich hab daraus mal eine function gemacht, also fals es mal einer brauch:

Delphi-Quellcode:

function AddTime(AddTime: TSystemTime; TimeToAdd: int64): TSystemTime;
//TimeToAdd can be this:
//const
//_SECOND: int64 = 10000000;
//_MINUTE: Int64 = 600000000;
//_HOUR: Int64 = 36000000000;
//_DAY: Int64 = 864000000000;
//(_Day * 20)
var
  TempFileTime: FILETIME;
  begin;
    Result := AddTime;
    if SystemTimeToFileTime(AddTime, TempFileTime) then
      begin;
        TempFileTime := TFileTime(Int64(TempFileTime) + TimeToAdd);
        FileTimeToSystemTime(TempFileTime, Result);
      end;
  end;