Hallo,
Du kannst die Sache noch weiter vereinfachen, wenn Du die Routine
IncMilliSecond aus der
Unit DateUtils verwendest.
Damit kann man eine Anzahl Millisekunden zu einem TDateTime-Wert addieren:
Delphi-Quellcode:
a := StrToInt64(Edit1.Text); // a = Ressis vorhanden
b := StrToInt64(Edit2.Text); // b = Ressiproduktion pro h
Time1 := StrToTime(Edit3.Text); // Time1 = Spionagezeitpunkt
// Stundenanzahl seit Verlassen der Flotte berechnen
h := Trunc(a / b);
// Flugzeit vom Spionagezeitpunkt subtrahieren
Zeit := IncMilliSecond(Time1, -h * 360000);
Zur Ausgabe des Ergebnisses könntest Du die Funktion
FormatDateTime aus der
Unit SysUtils verwenden:
Label1.Caption := FormatDateTime('hh:nn:ss', Zeit);
Gruß Hawkeye