Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_Round
Rundet mathematisch korrekt den übergebenen Wert auf die angegebene Anzahl von Stellen und gibt das Ergebnis zurück.
Erlaubt sind Werte vom Typ Double, Currency, Long, Integer und Byte. Das Ergebnis wird im übergebenen Typ zurückgegeben.
Ein negativer Stellenwert bewirkt eine Rundung vor dem Komma.
Dim a As Integer
Dim b As Long
Dim c As Double
Dim d As Currency
a = 6523
b = 987237
c = 7635.987123
d = 9871453453.4355
Print TypeName(CNCL_Round(a, 3)) + | => | + CNCL_Round(a, 3)
Print TypeName(CNCL_Round(b, 1)) + | => | + CNCL_Round(b, 1)
Print TypeName(CNCL_Round(c, -1)) + | => | + CNCL_Round(c, -1)
Print TypeName(CNCL_Round(d, 2)) + | => | + CNCL_Round(d, 2)
Print TypeName(CNCL_Round(3.3426398232e3, 3)) + | => | + CNCL_Round(3.3426398232e3, 3)
Ausgabe:
INTEGER => 6523
LONG => 987237
DOUBLE => 7640
CURRENCY => 9871453453.44
DOUBLE => 3342.64