Descrição

Devolve uma expressão com formato de número.

Sintaxe

FormatNumber(Expressão [,NúmDígitosDepoisDeDecimal [,IncluirDígitoInicio [,UsarParêntesesParaNúmerosNegativos [,GrupoDígitos]]]])

A sintaxe da função FormatNumber tem as seguintes partes:

Parte	Descrição
Expressão	Requerido. Expressão a qual se vai aplicar formato.
NúmDígitosDepoisDeDecimal	Opcional. Valor numérico que indica quantos lugares se mostram a direita do decimal. O valor predeterminado é -1, que indica que se usa a configuração regional do computador.
IncluirDígitoInicio	Opcional. Constante de três estados que indica se se deve mostrar ou não um zero inicial para valores fracionários. Consulte a seção Valores para saber quais são os valores permitidos.
UsarParêntesesParaNúmerosNegativos	Opcional. Constante de três estados que indica se se devem fechar ou não os valores negativos entre parênteses. Consulte a seção Valores para saber quais são os valores permitidos.
GrupoDígitos	Opcional. Constante de três estados que indica se se devem agrupar ou não os números com o delimitador de grupos especificado no Painel de controle. Consulte a seção Valores para saber quais São os valores permitidos.

Valores

Os argumentos IncluirDígitoInicio, UsarParêntesesParaNúmerosNegativos e GrupoDígitos têm os seguintes valores:

Constante	Valor	Descrição
TristateTrue	-1	True
TristateFalse	0	False
TristateUseDefault	-2	Usa a configuração regional do computador.

Comentários

Quando se omitem um ou mais dos argumentos opcionais, a configuração regional do computador proporciona os valores dos argumentos omitidos.

Nota: Toda a informação de configuração e valores se obtém da ficha Número de Configuração regional.

O seguinte exemplo usa a função FormatNumber para dar formato a um número para que tenha quatro lugares decimais:

Function ExemploDeFormatNumber
Dim MeuAngulo, MinhaSecante, MeuNumero
MeuAngulo = 1.3 ' Define um ângulo em radianos.
MinhaSecante = 1 / Cos(MeuAngulo) ' Calcula a secante.
ExemploDeFormatNumber = FormatNumber(MinhaSecante,4)

' Dá formato a MinhaSecante para que tenha quatro lugares decimais.
End Function