FormatarNúmero

Devolve uma expressão formatada como um número.

Estrutura

FormatNumber(Expressão [,NúmeroDeDígitosApósAVírgula [,IncluirDígitoInicial [,UsarParêntesesParaNúmerosNegativos [,AgruparDígitos]]]])

Parâmetros

Expressão - Obrigatório. Expressão a formatar.

NumDigitsAfterDecimal - Opcional. Valor numérico que indica quantas casas decimais são exibidas. O valor predefinido é -1, o que indica que são utilizadas as definições regionais do computador.

IncludeLeadingDigit - Opcional. Constante Tristate que indica se deve ou não ser exibido um zero à esquerda nos valores fracionários. Consulte a secção «Definições» para ver os valores.

UseParensForNegativeNumbers - Opcional. Constante Tristate que indica se os valores negativos devem ou não ser colocados entre parênteses. Consulte a secção «Definições» para ver os valores.

GroupDigits - Opcional. Constante Tristate que indica se os números são ou não agrupados utilizando o delimitador de grupo especificado no painel de controlo. Consulte a secção «Definições» para ver os valores.

Valores dos parâmetros

As opções IncludeLeadingDigit, UseParensForNegativeNumbers e GroupDigits têm os seguintes valores:

Valor constante Descrição

TristateTrue -1 True

TristateFalse 0 False

TristateUseDefault -2 Utilizar a configuração das definições regionais do computador.

Descrição

Quando uma ou mais das estruturas opcionais são omitidas, os valores para as estruturas omitidas são fornecidos pelas configurações regionais do computador.

Nota

Todas as informações sobre as definições provêm do separador «Número de definições regionais».

Exemplo

O exemplo seguinte utiliza a função FormatNumber para formatar um número com quatro casas decimais:

Função FormatNumberDemo

Dim MyAngle, MySecant, MyNumber

MyAngle = 1,3 ' Definir o ângulo em radianos.

MySecant = 1 / Cos(MyAngle) ' Calcular a secante.

FormatNumberDemo = FormatNumber(MySecant,4) ' Formata MySecant com quatro casas decimais.

Fim da função |