Ich habe es mit Decode versucht...
Delphi-Quellcode:
Sysutils.DecodeTime(t1, Hour, Min, Sec, MSec);
Showmessage('Beginn - Stunde: ' + IntToStr(Hour) + ' , Minute: ' + IntToStr(Min) + ' , Sekunde: ' + IntToStr(Sec) + ' , Millisekunde: ' + IntToStr(MSec));
Sysutils.DecodeTime(t2, Hour, Min, Sec, MSec);
Showmessage('Ende - Stunde: ' + IntToStr(Hour) + ' , Minute: ' + IntToStr(Min) + ' , Sekunde: ' + IntToStr(Sec) + ' , Millisekunde: ' + IntToStr(MSec));
Sysutils.DecodeTime(d, Hour, Min, Sec, MSec);
Showmessage('Dauer - Stunde: ' + IntToStr(Hour) + ' , Minute: ' + IntToStr(Min) + ' , Sekunde: ' + IntToStr(Sec) + ' , Millisekunde: ' + IntToStr(MSec));
Ergebnis 1: Beginn - Stunde: 4 , Minute: 0 , Sekiunde: 0 , Millisekunde: 0
Ergebnis 2: Ende - Stunde: 10 , Minute: 0 , Sekiunde: 0 , Millisekunde: 0
Ergebnis 3: Dauer - Stunde: 6 , Minute: 0 , Sekiunde: 0 , Millisekunde: 0
Das bedeutet, diese Ungenauigkeit wird nicht mal in Millisekunden dargestellt.