Diese Funktionen helfen eh nicht, selbst wenn es diese bei dir gäbe.
Du mußt erst vo dem Verglich die 2. Zeit anpassen, da sonst (slebst mit den oben genannten Funktionen) ein falsches Ergebnis rauskommt.
Denn du rechnest ja nur mit den Zeitanteilen, da aber die Zeit nach 23°° am nächsten Tag ist und Time() / StrToTime(...) nur mit dem Tag
0 rechnen, kann daraus nichts werden.
du mußt also, sobald die Endzeit kleiner als die Startzeit ist einen Tag dazurechnen, damit es stimmt.
Code:
Var Ts, Te: TDateTime;
Begin
Ts := Time();
Te := StrToTime(Beginn_T_T1);
[color=#ff0000]If Te < Ts Then Te := Te + 1;[/color]
L_TestTime1_1.Caption := TimeToStr(Ts - Te);
End;
PS: aber nicht vergessen, diese Art der Zeitberechnung geht nur, wenn die Dauer unter 24 Sunden liegt.