double Variable runden

[d3vid]

Nächste frage, wie kann ich eine double Variable auf 2 nachkomma stellen runden?
Ich finde iwie keine funktionierende Lösung

Mfg

[p80286]

wie wäre es mit Roundto oder SimpleRoundto ?
Oder Du machst es selbst wert:=(round(x*100)/100) wobei wert den Typ Currency haben sollte.

Gruß
K-H

[Jasocul]

Zitat von d3vid:

Ich finde iwie keine funktionierende Lösung

Das ist immer etwas wenig, um jemandem zu helfen. Da muss man schon wissen, was versucht wurde.

Das normale round macht ein bankers-rounding, was mit unserem üblichen kaufmännischen Runden nichts zu tun hat. Daher bitte auch RoundTo und SimpleRound ansehen, wie K-H schon schrieb.

[Frickler]

Zitat von d3vid:

Nächste frage, wie kann ich eine double Variable auf 2 nachkomma stellen runden?
Ich finde iwie keine funktionierende Lösung

Kurz und knapp:

Delphi-Quellcode:

function rnd(x: double): double;
begin
  if x >= 0 then
    result := int(x * 100.0 + 0.5) / 100.0
  else
    result := int(x * 100.0 - 0.5) / 100.0
end;

Das kann man dann nach Gusto variieren, etwa Runden auf 0,05 (z.B. für Geldbeträge in Ländern, die 1ct und 2ct Münzen abgeschafft haben):

Delphi-Quellcode:

function rnd05(x: double): double;
begin
  if x >= 0 then
    result := int(x * 20.0 + 0.5) / 20.0
  else
    result := int(x * 20.0 - 0.5) / 20.0
end;

Funktioniert mit jeder Delphi-Version.

[Neutral General]

Die Frage ist auch ob du wirklich den Wert runden willst, oder ob du den Wert in einem Label o.ä. nur mit 2 Nachkommastellen ANZEIGEN willst?
Dafür gäbe es dann z.B. die Funktionen FloatToStrF/CurrToStrF, Format oder FormatFloat.

Das wäre nämlich ein ganzes Stück einfacher als den eigentlichen Wert zu runden.

[hoika]

Hallo,
und zu guter Letzt gibt es auch noch arithmetisches (mathematisches) Runden und kaufmännisches Runden.