Dando formato a los numeros (Función FormatDateTime)


http://www.asptutor.com

Dando formato a los numeros (Función FormatDateTime)

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