Round Function [VBA]

Avrunder en numerisk verdi til et spesifisert antall desimaler.

warning

Denne konstanten, funksjonen eller objektet er aktivert med utsagnet Option VBASupport 1 plassert før den kjørbare programkoden i en modul.


This function implements the rounding rule known as "round-to-even". With this rule, whenever the difference between the number to be rounded and its nearest integer is equal to 0.5, the number is rounded to the nearest even number. See the examples below to learn more about this rule.

note

Beware that VBA's Round function works differently than LibreOffice Calc's Round function. In Calc, if the difference between the number to be rounded and the nearest integer is exactly 0.5, then the number is rounded up. Hence, in Calc the number 2.5 is rounded to 3 whereas using VBA's Round function the value 2.5 is rounded to 2 due to the "round-to-even" rule.


Syntaks:

Round(expression [,numdecimalplaces])

Returverdi:

Double

Parametre:

uttrykk: Det numeriske uttrykket som skal avrundes.

numdecimalplaces: Valgfritt argument som spesifiserer antall desimaler i den resulterende avrundede verdien. Standardverdien er 0.

Feilkoder

5 Ugyldig prosedyreoppkall

Eksempel:


    Option VBASupport 1
    Sub Example_Round
        Dim r 
        r = Pi
        print r ' 3,14159265358979
        print Round(r, 5) ' 3,14159
        r = exp(1)
        print r ' 2,71828182845904
        print Round(r) ' 3
    End Sub
  

Følgende eksempler illustrerer regelen "avrund til lik":


    ' Avrunding til nærmeste heltall (desimalplasser = 0)
    MsgBox Round(3.5) ' 4
    MsgBox Round(4.5) ' 4
    MsgBox Round(5.5) ' 6
    MsgBox Round(6.5) ' 6
    ' Avrunding med 2 desimaler (desimaltall = 2)
    MsgBox Round(1.555, 2) ' 1.56
    MsgBox Round(1.565, 2) ' 1.56
    MsgBox Round(1.575, 2) ' 1.58
    MsgBox Round(1.585, 2) ' 1.58