Hallo ich möchte mit Zeiten rechnen und bräuchte bisl Hilfe,
Ich habe eine Zahl (Minutenanzahl), die in eine Zeitangabe umgerechnet werden soll
bsp. 135,5 min = 2:15:30 (2h15min30s)
diese Minutenanzahl wird durch 2 Editfelder berechnet. (Time2)
Nach dieser Berechnung wird in ein drittes Editfeld eine weitere Zeitangabe (Format hh:mm:ss) eingegeben. (Time1)
Von dieser Zeitangabe sollen die vorherigen Minuten abgezogen werden (Time3 = Time1-Time2)
Kann mir da irgendjemand weiterhelfen?
Irgendwie krieg ich das mit den Encode/DecodeTime-Funktionen nich ganz hin.
Folgenden Code habe ich bisher
Delphi-Quellcode:
a := StrToInt64(Edit1.Text); //a = Ressis vorhanden
b := StrToInt64(Edit2.Text); //b = Ressiproduktion pro h
h := Trunc(a/b); //h = Stundenanzahl seit Verlassen der Flotte
m := Round(h/60); //m = Minutenanzahl seit Verlassen der Flotte
s := Round(m/60);
ss:= Round(S/100);
TimeSeparator := ':';
ShortTimeFormat := 'hh:mm:ss';
Time1 := StrToTime(Edit3.Text); //Time1 = Spionagezeitpunkt
TryEncodeTime(h,m,s,ss,Time2); //Time2 = berechnete Flugzeit aus Ressiproduktion
Time3 := Time1-Time2;
DecodeTime(Time3,h3,m3,s3,ss3);
Label1.Caption := IntToStr(h3) + ':' + IntToStr(m3) + ':' + IntToStr(s3);
(bitte keine professionellen Code-Vorschläge, sondern einfachen simplen Code, damit ich es auch selber verstehe *gg*)