Schweizer Rundung für Genies

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

) darum bräuchte ich dringend Eure Hilfe.

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

Gruß

Paul Jr.

**sakura**

Wenn das heisst, dass Du auf zwei Nachkommastellen runden musst, dann sieht das so aus 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.

...

**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

). Also:
value := Round(value * 20) / 20; MfG,
d3g

Danke für die Antworten,

d3g Toll!

Genau das habe ich gesucht!

Gruß

Paul Jr.

sakura Registriert seit: 10. Jun 2002 Ort: Unterhaching 11.412 Beiträge Delphi 12 Athens	#2 4. Feb 2003, 17:13 Wenn das heisst, dass Du auf zwei Nachkommastellen runden musst, dann sieht das so aus 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. ...... Daniel Lizbeth Ich bin nicht zurück, ich tue nur so
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#3 4. Feb 2003, 18:09 Mit Format geht es auch. Zusätzlich würde ich noch mit DecimalSeparator den DezimalSeparator auslesen und setzen. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

Mirilin Registriert seit: 21. Dez 2002 Ort: Lenzburg 861 Beiträge Delphi 6 Professional	#4 4. Feb 2003, 18:51 Willst Du auf 5Rp. runden? Tobias Die Physik ist für die Physiker eigentlich viel zu schwer.
	Zitat

d3g Registriert seit: 21. Jun 2002 602 Beiträge	#5 4. Feb 2003, 18:59 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 ). Also: value := Round(value * 20) / 20; MfG, d3g -- Crucifixion? -- Yes. -- Good. Out of the door, line on the left, one cross each.
	Zitat

Gast (Gast) n/a Beiträge	#6 5. Feb 2003, 11:12 Danke für die Antworten, d3g Toll! Genau das habe ich gesucht! Gruß Paul Jr.
	Zitat

Schweizer Rundung für Genies

Schweizer Rundung für Genies

Forumregeln