wieso soll man da nix zuweisen können?
Delphi-Quellcode:
function AddTime(Time: TSystemTime; mSecsToAdd: int64): TSystemTime;
begin;
Inc(mSecsToAdd, Time.wMilliseconds);
Time.wMilliseconds := mSecsToAdd mod 1000;
mSecsToAdd := mSecsToAdd div 1000 + Time.wSecond;
Time.wSecond := mSecsToAdd mod 60;
mSecsToAdd := mSecsToAdd div 60 + Time.wMinute;
Time.wMinute := mSecsToAdd mod 60;
mSecsToAdd := mSecsToAdd div 60 + Time.wHour;
Time.wHour := mSecsToAdd mod 24;
mSecsToAdd := mSecsToAdd div 24 + Time.wDay;
...
end;