Schweizer Rundung für Genies

[Gast]

Hallo Rundungs-Profis, 8)

ich brauche dringend Eure Hilfe!

Ich muss für eine Firma alle Kostenstellen auf Schweizer-System umrechnen und zwar nur bis zur zweiten Nachkommastelle.

Ist leider nicht mein Wissens-Bereich (der sowieso sehr bescheidend ist :oops: ) darum bräuchte ich dringend Eure Hilfe.

Ich komme erst morgen-früh und werfe hier ein Blick mit der Hoffnung auch Schweizerischer-Wunder :shock:

Gruß

Paul Jr.

[sakura]

Wenn das heisst, dass Du auf zwei Nachkommastellen runden musst, dann sieht das so aus

Delphi-Quellcode:

Gerundet := Round(Wert * 100) / 100;

Aus 10,123 wird 10,12
Aus 10,125 wird 10,13
Aus 10,129 wird 10,13

usw.usf.

...:cat:...

[Luckie]

Mit Format geht es auch. Zusätzlich würde ich noch mit DecimalSeparator den DezimalSeparator auslesen und setzen.

[Mirilin]

Willst Du auf 5Rp. runden?

[d3g]

Soweit ich weiß, ist Schweizer Rundung das Runden auf 5/100 (weil in der Schweiz die kleinste Münze 5 Rappen ist, wenn ich mich richtig erinnere - ist schon so lang her :mrgreen:). Also:

Delphi-Quellcode:

value := Round(value * 20) / 20;

MfG,
d3g

[Gast]

Danke für die Antworten, :lol:

d3g Toll! :!: Genau das habe ich gesucht!

Gruß

Paul Jr.