Inhoud

# 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

### Retourtype:

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 taalinstelling 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 taalinstelling 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 Gegevenstypes 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

Verwante onderwerpen

VBA rekenkundige functies

Help ons, alstublieft!