Round-funktion [VBA]

Indhold

# 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 LibreOfficeDev 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.

### Syntaks:

Round(expression [,numdecimalplaces])

### Returtype

Double

### Parametre:

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.

### Fejlkoder:

5 Ugyldigt Procedurekald

### 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

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

Relaterede emner

Calc-funktionen ROUND

VBA Matematik-funktioner

Støt os venligst!