functie

FormatPercent [VBA]

Retourneert een tekenreeks met een getalopmaak toegepast op een numerieke expressie. Er wordt een procentteken toegevoegd aan de geretourneerde tekenreeks.

Deze constante, functie of object, is ingeschakeld met de instructie Option VBASupport, geplaatst voor het uitvoerbare programmacode in een module.

Syntaxis:


      FormatPercent( expression, [numDigitsAfterDecimal As Integer], [includeLeadingDigit As Integer], _
          [useParensForNegativeNumbers As Integer], [groupDigits As Integer] ) As String

Geretourneerde waarde:

String

Parameters:

expression: Vereist. Een numerieke expressie die moet worden opgemaakt. Als de expression een tekenreeks is, moeten het scheidingsteken voor decimalen en duizendtallen worden gelokaliseerd.

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

includeLeadingDigit: Optioneel. Een vbTriState waarde die aangeeft of er een nul moet worden geplaatst voor een getal met decimalen.

vbTrue or -1: toon een voorloopnul.
vbFalse or -1: toon geen voorloopnullen.
vbUseDefault of -2: Gebruik de locale instellingen van de gebruikersinterface. Dit is de standaard wanneer weggelaten.

useParensForNegativeNumbers: Optioneel. Een vbTriState waarde die aangeeft of een negatief getal tussen haakjes moet worden getoond.

vbTrue or -1: Gebruik haakjes voor negatieve getallen.
vbFalse or 0: toon geen haakjes.
vbUseDefault of -2: Hetzelfde als vbFalse. Dit is de standaard wanneer weggelaten.

groupDigits: Optioneel. Een vbTriState waarde die aangeeft of een getal moet worden getoond met duizendtallen enz. dit met het scheidingsteken dat daarvoor is aangegeven in de landinstellingen van het systeem.

vbTrue or -1: groepeer de cijfers.
vbFalse or 0: groepeer de cijfers niet.
vbUseDefault of -2: Hetzelfde als vbFalse. Dit is de standaard wanneer weggelaten.

Foutcodes:

13 Gegevenstypen komen niet overeen

Voorbeeld:


        Sub TestFormatNumber
          Const UseComputerRegionalSettings = -1

          MsgBox FormatPercent(12.2, NumDigitsAfterDecimal:=2) ' 1220.00% als de geselecteerde gebruikersinterface Engels is

          MsgBox FormatPercent("-,2", 2, IncludeLeadingDigit:=vbTrue) ' -20,00% als de geselecteerde gebruikersinterface Frans is

          MsgBox FormatPercent("-0.2", 2) ' -20.00% voor en-US, -0,00 for fr-CA, de-AT of pt-BR

          MsgBox FormatPercent(-0.2, UseComputerRegionalSettings, UseParensForNegativeNumbers:=vbTrue) ' (20,00)% als pt-BR

          MsgBox FormatPercent("-0,2", UseComputerRegionalSettings, vbUseDefault, vbTrue) ' (20,00)% als Duits

          MsgBox FormatPercent("-12345678", -1, vbUseDefault, vbUseDefault, GroupDigits:=vbTrue) ' -1 234 567 800,00% voor fr-BE

        End Sub

VBA rekenkundige functies