roundto rundet nicht (richtig)

[Bastler]

N'abend;

Ich habe in meinem Programm folgede Zeile

Delphi-Quellcode:

var ueberlebt:single;
...
ueberlebt:=roundto(secondspan(start,now),-2);

"Uberlebt" wird später durch floattostr in einen String umgewandelt, dieser enthält aber dann 12 od. mehr Nachkommastellen (hab (noch) nicht gezählt). Das verwirrendste dadran ist, das diese Zeile lange Zeit so wie sie hier steht funktioniert hat...

Wenn ich statt auf den Exponenten -2 auf 0 runde klappts wieder, auch -1 aber auch nicht...

Hat jemand ne erklärung oder einen Tipp für mich ?

(Hab auch schon probiert durch SetRoundMode den Rundungsmechanismus umzustellen, ändert aber leider nichts...)

[dajuhsa]

versuchst du damit die kommastellen um 2 zu senken? der parameter gibt an, wie viele stellen übrig bleiben sollen!
12 stellen? single hat doch nur 8 dachte ich

[alzaimar]

Floats können nicht jede Dezimalzahl genau darstellen. Daher hat man bei einigen Zahlen den Effekt, das eine auf 2 Stellen gerundete Zahl in der Darstellung z.B. 1.230000000001 ist. Das liegt in der Natur der floating point Darstellung.

[Bastler]

@dajuhsa: Ich weiß, so meinte ich es aucu, ich will auf 2 Nachkommastellen genau runden, sry, falls es falsch rüberkam

@alzaimar: Danke, ich habe jetz eine Variante gefunden, die vllt. nicht perfekt, aber wenigstesn funktionsfähig ist.

Delphi-Quellcode:

var a:integer;
    ueberlebt:single;
...
  
  a:=Millisecondsbetween(start,now);
  ueberlebt:=a*0.001;
  Label1.Caption:=floattostr(roundto(ueberlebt,-2));

klappt, warum auch immer, besser...

//EDIT: Code ergänzt

[Corpsman]

Schon mal
Label1.caption := floattostrF(ueberlebt,fffixed,7,2); ausprobiert ?

[3_of_8]

Label1.caption:=format('%.2f', [ueberlebt]);