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
11 comentarios
Escriba un comentario →