Concloo LotusScript High Precision Beispiele
Beispiele: CNCL_HP_Round
Rundet die übergebene Zahl auf die angegebene Anzahl von Stellen nach den Regeln der arithmetischen/kaufmännischen Rundung.
Wird für die Anzahl der Stellen eine negative Anzahl angegeben wird die übergebene Zahl auf die relevanten Vorkommastellen gerundet.
Dim a As String
Dim i As Long
a = "7623,0000237668712639873"
For i = -6 To 10
Print "i=" + Right$(" " + CStr(i),2) + " -- " + CNCL_HP_Round(a, i)
Next
Ausgabe:
i=-6 -- 0
i=-5 -- 0
i=-4 -- 10000
i=-3 -- 8000
i=-2 -- 7600
i=-1 -- 7620
i= 0 -- 7623
i= 1 -- 7623
i= 2 -- 7623
i= 3 -- 7623
i= 4 -- 7623
i= 5 -- 7623,00002
i= 6 -- 7623,000024
i= 7 -- 7623,0000238
i= 8 -- 7623,00002377
i= 9 -- 7623,000023767
i=10 -- 7623,0000237669