Función Format

DESCRIPCIÓN DE LA FUNCIÓN: «FORMAT »

Es una función que toma una expresión, una fecha o un valor numérico y lo convierte a un string de acuerdo al formato especificado.

Sintaxis:      Format ( expresión, [ formato ] )

Ejemplo1:

Sub Prueba_Format()

Dim Pruebafecha As Date
Dim Texto As String
Pruebafecha = #1/27/2001 5:04:23 PM#

'Permite obtener la hora actual en formato largo(completo)
Texto = Format(Now(), «Long Time»)

'Permite obtener la fecha actual en formato largo (completo)
Texto = Format(Now(), «Long Date»)

'Permite obtener el número del día
Texto = Format(Now(), «D»)

' Permite obtener la hora minuto y segundo
Texto = Format(Pruebafecha, «h:m:s»)

' Se obtiene el formato, completando con ceros
Texto = Format(Pruebafecha, «hh:mm:ss»)

' Formato largo incluyendo el nombre del día
Texto = Format(Pruebafecha, «dddd, MMM d yyyy»)

' HH sirve para obtener el formato de 24 horas
Texto = Format(Pruebafecha, «HH:mm:ss»)

' Formato de número
Texto = Format(54765.4, «##,##0.00»)
Texto = Format(32334.9, «###0.00»)

' Formato de porcentaje
Texto = Format(5, «0.00%»)

msgbox texto

End Sub

Use «msgbox texto» despues de cada expresión que quiera evaluar.

Ejemplo2:

Sub procentaje()
valor = 0.84
porcentaje = Format(0.84, «PERCENT»)
Range(«A1») = porcentaje
End Sub

La celda A1 contendrá lo siguiente:    84.00%

NOTA:  «PERCENT» es un formato inherente al lenguaje