Zitat von
N3ON:
Hm, es geht hier aber um Time, nicht um Date
Zitat von
Delphi-Hilfe:
type TTime = type TDateTime;
Merkst was? Wenn es nur um Uhrzeiten geht, sind das eben 0 Tage, die Berechnung bleibt die gleiche.
Schau Dir mal dies Beispiel an:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Start, Ende, Differenz, DiffInSek: TTime;
begin
Start := StrToTime('10:20:00');
Ende := StrToTime('12:50:10');
Differenz := Ende - Start;
DiffInSek := Differenz * 24 * 60 * 60;
ShowMessage(FormatDateTime('hh:nn:ss',Differenz) + #13#10 +
Format('Enspricht %.0f Sekunden',[DiffInSek]));
end;