FormatPercent [VBA]

Returnerer en streng med tallformatering brukt på et numerisk uttrykk. Et prosenttegn legges til den returnerte strengen.

Denne konstanten, funksjonen eller objektet er aktivert med utsagnet Option VBASupport 1 plassert før den kjørbare programkoden i en modul.

Syntaks:


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

Returverdi:

String

Parametre:

uttrykk: Obligatorisk. Et numerisk uttrykk som skal formateres. Hvis uttrykk er en streng, må desimal- og tusenskilletegn lokaliseres.

numDigitsAfterDecimal: Valgfritt. En numerisk verdi som spesifiserer antall sifre som skal vises etter desimalet. Hvis den utelates, har den verdien -1 som standard, noe som betyr at standardinnstillingene for brukergrensesnittets lokalitet skal brukes.

includeLeadingDigit: Valgfritt. En vbTriState oppregningsverdi, som spesifiserer om en innledende null skal vises for brøkverdier.

vbTrue eller -1: Vis en innledende null.
vbFalse eller 0: Ikke vis innledende nuller.
vbUseDefault eller -2: Bruk lokalinnstillingene for brukergrensesnittet. Dette er standard når det utelates.

useParensForNegativeNumbers: Valgfritt. En vbTriState oppregningsverdi som spesifiserer om negative tall skal settes inn i parentes.

vbTrue eller -1: Bruk parentes for negative tall.
vbFalse eller 0: Ikke vis parentes.
vbUseDefault eller -2: Samme som vbFalse. Dette er standard når det utelates.

groupDigits: Valgfritt. En vbTriState enumerasjonsverdi som angir hvordan tallet, skal grupperes (i tusenvis osv.), ved å bruke gruppeskilletegnet som er angitt på systemets regionale innstillinger.

vbTrue eller -1: Gruppesifre.
vbFalse eller 0: Ikke grupper tall.
vbUseDefault eller -2: Samme som vbFalse. Dette er standard når det utelates.

Feilkoder

13 Ukjent datatype

Eksempel:


        Sub TestFormatNumber
          Const UseComputerRegionalSettings = -1

          MsgBox FormatPercent(12.2, NumDigitsAfterDecimal:=2) ' 1220,00 % hvis valgt brukergrensesnitt er engelsk

          MsgBox FormatPercent("-,2", 2, IncludeLeadingDigit:=vbTrue) ' -20,00 % hvis fransk brukergrensesnitt

          MsgBox FormatPercent("-0,2", 2) ' -20,00 % for en-US, -0,00 for fr-CA, de-AT eller pt-BR

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

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

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

        End Sub

VBA-matematiske funksjoner