@Himitsu
Danke für die Anregung
Ich hätte es mit DecodeTime gelöst.
Ist auch garnicht so weit weg, wo meinen Vorschlägen.
Zitat:
Delphi-Quellcode:
function Now: TDateTime;
{$IFDEF MSWINDOWS}
var
SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
with SystemTime do
Result := EncodeDate(wYear, wMonth, wDay) +
EncodeTime(wHour, wMinute, wSecond, wMilliseconds);
end;
{$ENDIF MSWINDOWS}
Aber, wie gesagt, es gibt noch unzählige andere Wege, welche zum Ziel führen.
TSystemTime, TDateTime, jeder Teil in einem eigenen Integer (ala wYear, wMonth, ...) usw.
Es gibt viele Zeittypen, Funktionen und Rechenweisen, die man ganz gut mischen kann.