Trunc und TTime (Wenn TTime = 1 gibt Trunc 0 zurück, warum?)

[dizzy]

Zitat von bttb930:

TTime enthält soweit ich weiß nur eine ZEIT. Du brauchst TDateTime. 24 Uhr ist TTime-Mäßig halt 0 Uhr.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  t: TTime;
begin
  t := 1;
  Edit1.Text := IntToStr(trunc(t));
end;

In meinem Edit steht eine "1"... Ist allerdings die Frage woher dieser Wert stammt, und wie er dort behandelt wird! Es kann durchaus sein dass die Funktion die die Variable füllt, bei einem TTime-Wert darauf achtet, dass der Vorkommaanteil immer 0 ist.