So, ich habe jetzt ein kleines Beispiel welches leicht nach zu vollziehen sein sollte, und wo genau der Fehler auftritt den ich meine!
Code:
function TForm1.TimeToStrInHoursMinutes(Zeit: TTime): String;
var Tage: Integer;
Stunden, Minuten: String;
begin
if Zeit >= 0 then
begin
Tage := Trunc(Zeit); // Ganzahl des TTime in Tage?!?
Stunden := IntToStr(24*Tage + StrToInt(FormatDateTime('hh', Zeit - Tage)));
Minuten := FormatDateTime('nn', Zeit - Tage);
Result := Stunden+':'+Minuten;
end
else
begin
Tage := Trunc(Zeit) * (-1);
Stunden := IntToStr(24*Tage + StrToInt(FormatDateTime('hh', Zeit + Tage)));
Minuten := FormatDateTime('nn', Zeit + Tage);
Result := '-'+Stunden+':'+Minuten;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var t1, t2: TTime;
i: Integer;
begin
t1 := EncodeTime(0,0,0,0); // t1 = 0
t2 := EncodeTime(1,0,0,0); // t2 wert von 1 Stunde
for i := 1 to 24 do // 24 * 1 ist 24 !
t1 := t1 + t2;
ShowMessage(FloatToStr(t1)); // Gibt in der Message "1" aus
ShowMessage(TimeToStrInHoursMinutes(t1)); // Zeigt "0:00" an ! Warum ?
end;
Klickt man auf Button1 kommt zuerst eine "1" und danach "0:00"! Nach meiner Meinung sollte aber "24:00" kommen.
Setzt man vor die beiden ShowMessage noch folgende Zeile wird auch "24:00" angezeigt
Code:
t1 := t1 + 0.0000000001; // liegt irgendwo im Sekunden/Millisekunden bereich
Spielt man ein wenig mit der Schleife und stellt sie auf 48 statt 24 funktioniert alles, bei 72 zeigt er dann 48:00, obwohl t1 = 3 ist, und schließlich bei 96 zeigt er 72:00 an und t1 = 3,99...!
Schaut man sich bei einer Schleifenzahl von 72 das ganze im Debugger an sagt er das "Zeit" 3 ist aber nach dem trunc erhält "Tage" den wert 2.
Dass das ganze irgendwie mit Rundungsfehlern und ungenügender Genauigkeit zu tun hat kann ich mir schon vorstellen, aber auf die Minute genau sollte das doch eigentlich schon sein. Oder irre ich mich da?