Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#16

Re: wie aus eigener systemtime richtiges datum machen??

  Alt 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;
$2B or not $2B
  Mit Zitat antworten Zitat