Uhrzeit Rest Min und Sec

[himitsu]

Zitat von p80286:

@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.