Differenz zwischen zwei Zeiten

[Sharky]

Zitat von Dannyboy:

...Lol, das ist sehr logisch.
..

Und weil es so schön logisch ist funktioniert es auch

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 zeitunterschied,
 zeit1,
 zeit2           : TTime;
begin
 zeit1 := StrToTime (Edit1.Text);
 zeit2 := StrToTime (Edit2.Text);
 zeitunterschied := zeit2 - zeit1;
 Label1.Caption := TimeToStr (zeitunterschied);
end;

[EDIT] Kleinen Tipfehler beseitigs[/EDIT]