Datum in Integer umwandeln

[DeddyH]

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;