Differenz zwischen zwei Zeiten

[BorlanDelphiUser]

Hallo,
wie kann ich die Differenz zweier Zeiten berechnen z.B.
08:00:00 und 12:03:00 sodass als Ergebnis 04:03:00 erhalte

Gruß René

[Sharky]

Zitat von BorlanDelphiUser:

Hallo,
wie kann ich die Differenz zweier Zeiten berechnen z.B.
08:00:00 und 12:03:00 sodass als Ergebnis 04:03:00 erhalte

Gruß René

Mal so aus dem Bauch

ZeitUnterschied := Zeit2 - Zeit1;

[neolithos]

Such mal in der VCL-Hilfe nach

DaySpan und klicke Siehe auch

vielleicht hilft es...

[Dannyboy]

Code:

Mal so aus dem Bauch  

ZeitUnterschied := Zeit2 - Zeit1;

Lol, das ist sehr logisch.
Das werd' ich nie vergessen

[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]