(Gast)
n/a Beiträge
|
22. Jul 2005, 14:15
Hier mein Code:
Delphi-Quellcode:
czeit := now;
ShowMessage(DateTimeToStr(czeit));
czeit := EncodeTime(0, 0, ((stop - start) div 1000), ((stop - start) mod 1000));
DateTimeToSystemTime((izeit + czeit), k);
DecodeTime(izeit, k.wHour, k.wMinute, k.wSecond, k.wMilliseconds);
DecodeDate(izeit, k.wYear, k.wMonth, k.wDay);
k.wSecond := k.wSecond - ((stop + start) mod 1000), ((stop + start) div 1000);
Die letzte Zeile funzt noch net so ganz. Was könnte falsch sein?
|
|
Zitat
|