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