GetalOpmaak [VBA]

Retourneert een numerieke expressie die is opgemaakt als een getal.

warning

Deze functie of constante kan worden geactiveerd door het statement Option VBASupport 1 voor de uitvoerbare programma code te plaatsen in een module.


Syntaxis:

FormatNumber( expression, numDigitsAfterDecimal as Integer, includeLeadingDigit as Integer, useParensForNegativeNumbers as Integer, groupDigits as Integer )

Geretourneerde waarde:

Tekenreeks

Parameters:

Expressie: Vereist. De numeriek expressie dat opgemaakt moet worden.

aantalDecimalen: Optioneel. Een numerieke waarde van het aantal decimalen. Indien weggelaten, wordt standaard de waarde -1 gebruikt, wat betekent dat de standaardinstellingen van de gebruikersinterface (locale) moet worden gebruikt.

includeLeadingDigit: Optioneel. Een waarde vbTristate die aanduidt of een voorloopnul moet worden getoond bij breuken.

useParensForNegativeNumbers: Optioneel. Een waarde vbTriState die aanduidt of negatieve getallen omgeven moeten worden door haakjes.

groupDigits: Optioneel. Een waarde vbTriState die aanduidt of een getal gegroepeerd moet worden (in duizenden, enz.), door gebruik te maken van een scheidingsteken voor duizendtallen, zoals gespecificeerd is in de regionale instellingen.

Foutcodes:

13 Gegevenstypen komen niet overeen

Voorbeeld:


        Sub TestFormatNumeber
        testName = "Test 1: positive, 2 decimals"
        str2 = "12.20"
        str1 = FormatNumber("12.2", 2, vbFalse, vbFalse, vbFalse)
        msgbox( "FormatNumber returned: " + str1 + ", Expected: " + str2)

        testName = "Test 2: negative, 20 decimals, use leading zero"
        str2 = "-0.20000000000000000000"
        str1 = FormatNumber("-.2", 20, vbTrue, vbFalse, vbFalse)
        msgbox( "FormatNumber returned: " + str1 + ", Expected: " + str2)

        testName = "Test 3: negative, 20 decimals, no leading zero"
        str2 = "-.20000000000000000000"
        str1 = FormatNumber("-0.2", 20, vbFalse, vbFalse, vbFalse)
        msgbox( "FormatNumber returned: " + str1 + ", Expected: " + str2)

        testName = "Test 4: negative, no leading zero, use parens"
        str2 = "(.20)"
        str1 = FormatNumber("-0.2", -1, vbFalse, vbTrue, vbFalse)
        msgbox( "FormatNumber returned: " + str1 + ", Expected: " + str2)

        testName = "Test 5: negative, default leading zero, use parens"
        str2 = "(0.20)"
        str1 = FormatNumber("-0.2", -1, vbUseDefault, vbTrue, vbFalse)
        msgbox( "FormatNumber returned: " + str1 + ", Expected: " + str2)

        testName = "Test 6: group digits"
        str2 = "-12,345,678.00"
        str1 = FormatNumber("-12345678", -1, vbUseDefault, vbUseDefault, vbTrue)
        msgbox( "FormatNumber returned: " + str1 + ", Expected: " + str2)
        End Sub