Dando formato a los numeros (Función FormatNumber)

Descripción

Devuelve una expresión con formato de número.

Sintaxis

FormatNumber(Expresión [,NúmDígitosDespuésDeDecimal [,IncluirDígitoInicio [,UsarParéntesisParaNúmerosNegativos [,GrupoDígitos]]]])

La sintaxis de la función FormatNumber tiene las siguientes partes:

Parte	Descripción
Expresión	Requerido. Expresión a la que se va a aplicar formato.
NúmDígitosDespuésDeDecimal	Opcional. Valor numérico que indica cúantos lugares se muestran a la derecha del decimal. El valor predeterminado es -1, que indica que se usa la configuración regional del equipo.
IncluirDígitoInicio	Opcional. Constante de tres estados que indica si se debe mostrar o no un cero inicial para valores fraccionarios. Consulte la sección Valores para saber cuáles son los valores permitidos.
UsarParéntesisParaNúmerosNegativos	Opcional. Constante de tres estados que indica si se deben encerrar o no los valores negativos entre paréntesis. Consulte la sección Valores para saber cuáles son los valores permitidos.
GrupoDígitos	Opcional. Constante de tres estados que indica si se deben agrupar o no los números con el delimitador de grupos especificado en el Panel de control. Consulte la sección Valores para saber cuáles son los valores permitidos.

Valores

Los argumentos IncluirDígitoInicio, UsarParéntesisParaNúmerosNegativos y GrupoDígitos tienen los siguientes valores:

Constante	Valor	Descripción
TristateTrue	-1	True
TristateFalse	0	False
TristateUseDefault	-2	Usa la configuración regional del equipo.

Comentarios

Cuando se omiten uno o más de los argumentos opcionales, los valores de los argumentos omitidos los proporciona la configuración regional del equipo.

Nota: Toda la información de configuración y valores se obtiene de la ficha Número de Configuración regional.

El siguiente ejemplo usa la función FormatNumber para dar formato a un número para que tenga cuatro lugares decimales:

Function EjemploDeFormatNumber
Dim MiAngulo, MiSecante, MiNumero
MiAngulo = 1.3 ' Define un ángulo en radianes.
MiSecante = 1 / Cos(MiAngulo) ' Calcula la secante.
EjemploDeFormatNumber = FormatNumber(MiSecante,4)

' Da formato a MiSecante para que tenga cuatro lugares decimales.
End Function