Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.056 Beiträge
Delphi 12 Athens
|
Re: wie aus eigener systemtime richtiges datum machen??
27. Jan 2008, 12:19
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;
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
|