Round (funktion) [VBA]

Afrunder en numerisk værdi til et angivet antal decimale cifre.

Denne konstant, funktion eller objekt blev aktiveret med udtrykket Option VBASupport 1 placeret foran den del af modulets programkode, der kan udføres.

Denne funktion implementerer afrundingsreglen, der er kendt som "afrund-til-lige". Med denne regel bliver tallet afrundet til det nærmeste lige tal, når som helst forskellen mellem tallet, der skal afrundes, og dets nærmeste heltal er lig med 0,5. Se eksemplerne herunder for at lære mere om denne regel.

Vær opmærksom på, at VBA's Round-funktion fungerer anderledes end LibreOffice Calc-funktionen AFRUND. I Calc rundes op op, hvis afstanden til nærmeste heltal er præcist 0,5. Altså afrunder Calc-funktionen tallet 2,5 til 3, mens VBA's Round-funktion afrunder 2,5 til 2 på grund af "afrund-til-lige"-reglen.

Round(expression [,numdecimalplaces])

Double

udtryk: Det numeriske udtryk, der skal afrundes.

numdecimalpladser: Valgfrit argument, der angiver antallet af decimale cifre i den resulterende, afrundede værdi. Standardværdien er 0.

    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
  

De følgende eksempler illustrerer "afrund-til-lige"-reglen:

    ' Afrunding til det nærmeste heltal (decimalpladser = 0)
    MsgBox Round(3.5) ' 4
    MsgBox Round(4.5) ' 4
    MsgBox Round(5.5) ' 6
    MsgBox Round(6.5) ' 6
    ' Afrunding med 2 decimalciftre (decimalpladser = 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