Zeitcode

[Dilom]

Hallo,

03:00:00:12 - 01:00:00:12 = 02:00:00:00 Wie kann ich berechnen?

TimeCodeInEdit 01:00:00:00
TimeCodeOutEdit 02:00:00:00
TimeCodeDurationEdit'e Edit2 - Edit1 = 01:00:00:00


S1, S2: TDateTime;
begin
S1 := StrToTime(Edit1.Text);
S2 := StrToTime(Edit2.Text);
Edit3.Text := (TimeToStr(S1 - S2));