FormatPercent [VBA]

Gibt eine Zeichenfolge mit einer Zahlenformatierung zurück, die auf einen numerischen Ausdruck angewendet wird. An die zurückgegebene Zeichenfolge wird ein Prozentzeichen angehängt.

Diese Konstante, diese Funktion oder dieses Objekt wird durch Platzierung der Anweisung Option VBASupport 1 vor dem auszuführenden Programmcode des Moduls aktiviert.

Syntax:


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

Rückgabewert:

String

Parameter:

expression: Erforderlich. Ein zu formatierender numerischer Ausdruck. Wenn expression eine Zeichenfolge ist, müssen das Dezimal- und Tausendertrennzeichen lokalisiert werden.

numDigitsAfterDecimal: Optional. Ein numerischer Wert, welcher die anzuzeigende Zahl der Ziffern nach dem Dezimaltrennzeichen festlegt. Falls fehlend, ist der Standardwert -1, was bedeutet, dass die Standardeinstellungen der Benutzeroberflächen-Sprache verwendet werden.

includeLeadingDigit: Optional. Ein Aufzählungswert vbTriState, welcher festlegt, ob eine führende Null für Bruchteile angezeigt werden soll.

vbTrue oder -1: Mit führender Null darstellen.
vbFalse oder 0: Ohne führende Null darstellen.
vbUseDefault oder -2: Verwendet die Gebietsschemaeinstellungen der Benutzeroberfläche. Dies ist die Standardeinstellung, wenn es weggelassen wird.

useParensForNegativeNumbers: Optional. Ein Aufzählungswert vbTriState, welcher festlegt, ob negative Zahlen in Klammern eingeschlossen dargestellt werden sollen.

vbTrue oder -1: Klammern für negative Zahlen verwenden.
vbFalse oder 0: Keine Klammern verwenden.
vbUseDefault oder -2: Identisch mit vbFalse. Dies ist die Standardeinstellung, wenn es weggelassen wird.

groupSigits: Optional. Ein Aufzählungswert vbTriState, welcher die Anzahl der Stellen festlegt, die gruppiert werden sollen (bei Tausendern und so weiter), unter Verwendung des Gruppierung-Trennzeichens, welches in den lokalen Einstellungen des Betriebssystems festgelegt ist.

vbtrue oder -1: Ziffern gruppieren.
vbFalse oder 0: Ohne Ziffern zu gruppieren.
vbUseDefault oder -2: Identisch mit vbFalse. Dies ist die Standardeinstellung, wenn es weggelassen wird.

Fehlercodes:

13 Datentyp kann nicht konvertiert werden

Beispiel:


        Sub TestFormatNumber
          Const UseComputerRegionalSettings = -1

          MsgBox FormatPercent(12.2, NumDigitsAfterDecimal:=2) ' 1220.00 %, wenn die ausgewählte Benutzeroberfläche Englisch ist

          MsgBox FormatPercent("-,2", 2, IncludeLeadingDigit:=vbTrue) ' -20,00% bei deutscher Benutzeroberfläche

          MsgBox FormatPercent("-0.2", 2) ' -20.00 % für en-US, -20,00 % für fr-CA, de-AT oder pt-BR

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

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

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

        End Sub

VBA – Mathematische Funktionen