Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Bille am 30.09.07 - 13:34:18

Titel: Abrunden auf zwei Dezimalstellen
Beitrag von: Bille am 30.09.07 - 13:34:18
Hallo,

ich muss eine Zahl auf 0,05 abrunden.
In Excel gibt es dazu die Funktion Untergrenze(Zahl; 0,05)

2,419 --> 2,40
2,878 --> 2,85

Gibt es sowas in LotusScript auch? Mit Round bekomme ich das nicht so hin.

Ich hab jetzt folgende Krücke verwendet, denke aber, dass es einfacher und schöner gehen müsste ...

Code
	Basis = Int(Basis*100)
	Basis = (Basis - (Basis Mod 5)) / 100

Bille

*** edit: Fehler in Code ausgebessert ***
Titel: Re: Abrunden auf zwei Dezimalstellen
Beitrag von: koehlerbv am 30.09.07 - 14:01:14
Hallo Bille,

LotusScript bietet hierfür nur Round, was Dein Problem natürlich nicht löst. Du musst da also selber ran, was Du ja schon gemacht hast (ein Zweizeiler statt ein Einzeiler - das ist doch immer noch elegant  ;)).
Das Excel (oder auch 1-2-3) das kann, ist naheliegend - im Gegensatz zu Notes ist die Hauptaufgabe von Excel ja auch das Rechnen.

By the way: Musst Du in Zeile 2 nicht durch 100 dividieren statt zu multiplizieren?

Bernhard
Titel: Re: Abrunden auf zwei Dezimalstellen
Beitrag von: Bille am 30.09.07 - 14:04:32
Ups, natürlich muss die Zahl zum Schluss durch 100 geteilt werden.  :o
Hab's gerade in dem ersten Post abgeändert.
Titel: Re: Abrunden auf zwei Dezimalstellen
Beitrag von: koehlerbv am 30.09.07 - 14:06:13
Und ich habe Deinen Code mal in meine "Raupensammlung" eingefügt. Vielen Dank, Bille - irgendwann kann man das bestimmt mal brauchen!

Bernhard
Titel: Re: Abrunden auf zwei Dezimalstellen
Beitrag von: Bille am 30.09.07 - 14:08:38
Da fühle ich mich geehrt.

Schönen Sonntag noch!
Titel: Re: Abrunden auf zwei Dezimalstellen
Beitrag von: koehlerbv am 30.09.07 - 14:13:49
Da fühle ich mich geehrt.
He, he, he ..

Schönen Sonntag noch!
Jo - Fussball-WM schauen! Unsere Mädels sind wirklich sehr beeindruckend!

Bernhard