Zum Hauptinhalt springen

Zahl formatieren

Gibt einen Ausdruck zurück, der als Zahl formatiert ist.

Aufbau

FormatNumber(Ausdruck [,AnzahlZeichenNachKomma [,FührendeZifferEinbeziehen [,KlammernFürNegativzahlenVerwenden [,ZiffernGruppieren]]]])

Parameter

Angabe – erforderlich. Zu formatierender Ausdruck.

NumDigitsAfterDecimal – Optional. Zahlenwert, der angibt, wie viele Stellen rechts von der Dezimalstelle angezeigt werden. Der Standardwert ist -1, was bedeutet, dass die Ländereinstellungen des Computers verwendet werden.

IncludeLeadingDigit – Optional. Dreistufige Konstante, die angibt, ob bei Bruchwerten eine führende Null angezeigt wird oder nicht. Die Werte finden Sie im Abschnitt „Einstellungen“.

UseParensForNegativeNumbers – Optional. Eine dreistufige Konstante, die angibt, ob negative Werte in Klammern gesetzt werden sollen oder nicht. Die Werte finden Sie im Abschnitt „Einstellungen“.

GroupDigits – Optional. Dreistufige Konstante, die angibt, ob Zahlen anhand des in der Systemsteuerung festgelegten Gruppentrennzeichens gruppiert werden oder nicht. Die Werte finden Sie im Abschnitt „Einstellungen“.

Parameterwerte

Die Strukturen „IncludeLeadingDigit“, „UseParensForNegativeNumbers“ und „GroupDigits“ können folgende Werte annehmen:

Konstante Wert Beschreibung

TristateTrue -1 True

TristateFalse 0 False

TristateUseDefault -2 Die Einstellung aus den Ländereinstellungen des Computers verwenden.

Beschreibung

Wenn eine oder mehrere der optionalen Strukturen weggelassen werden, werden die Werte für die weggelassenen Strukturen durch die Ländereinstellungen des Computers bereitgestellt.

Hinweis

Alle Informationen zu den Einstellungen stammen aus der Registerkarte „Regionale Einstellungen“.

Beispiel

Im folgenden Beispiel wird die Funktion „FormatNumber“ verwendet, um eine Zahl mit vier Dezimalstellen zu formatieren:

Funktion FormatNumberDemo

Dim MyAngle, MySecant, MyNumber

MyAngle = 1.3 ' Winkel in Radianten definieren.

MySecant = 1 / Cos(MyAngle) ' Sekante berechnen.

FormatNumberDemo = FormatNumber(MySecant, 4) ' MySecant auf vier Dezimalstellen formatieren.

Ende der Funktion |