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

[Sharky]

Zitat von Schmufu:

...Zu der Vermutung das es nicht möglich ist Werte größer 1 zuzuweisen, kann ich nicht zustimmen....

Also mal so aus dem Kopf getippt:

Delphi-Quellcode:

var
  t1 : TTime;
  t2 : TTime;
begin
  t1 := EncodeTime(12,0,0,0);  // t1 "ist jetzt" 12 Uhr am 30. Dezember 1899
  t2 := t1 + 1;  // t2 ist jetzt 12 Uhr am folge Tag von t1
end;