VBA - Função Format e exemplos

Eu sei, eu sei, isso é superfácil todo mundo sabe, não precisa ser um post. Mas a verdade indica que muita gente ainda não domina a utilização da função Format. Esta retorna uma Variant (String) que contém uma expressão formatada segundo instruções contidas em uma expressão de formato: Sintaxe:


 Format (expression[, format[, firstdayofweek[, firstweekofyear]]])

Expression - Obrigatória. Qualquer expressão válida.

Format - Opcional. Uma expressão de formato válida nomeada ou definida pelo usuário.

Firstdayofweek - Opcional. Uma constante que especifica o primeiro dia da semana.

firstweekofyear - Opcional. Uma constante que especifica a primeira semana do ano.

O argumento firstdayofweek tem as seguintes configurações:



CONSTANTE      VALOR    DESCRIÇÃO
vbUseSystem        0             Use a configuração NLS API.
VbSunday            1             Domingo (padrão)
vbMonday            2             Segunda-feira
vbTuesday           3             Terça-feira
vbWednesday      4              Quarta-feira
vbThursday          5              Quinta-feira
vbFriday               6             Sexta-feira
vbSaturday          7              Sábado


O argumento firstweekofyear tem as seguintes configurações:


CONSTANTE    VAL  DESCRIÇÃO
vbUseSystem      0  Use a configuração NLS API.
vbFirstJan1         1  Inicie com a semana na qual ocorre o dia 1º de janeiro (padrão).
vbFirstFourDays   2  Inicie com a primeira semana que tem pelo menos 4 dias no ano.
vbFirstFullWeek   3  Inicie com a primeira semana completa do ano.



Estes exemplos mostram os diversos usos da função Format para formatar valores, usando formatos nomeados e formatos definidos pelo usuário. Para o separador de data (/), separador de hora (:) e literal AM/ PM, o resultado real formatado, exibido pelo sistema, dependerá das configurações da localidade em que o código estiver executado. Ao exibir datas e horas no ambiente de desenvolvimento, serão usados os formatos de hora e data abreviados da localidade do código. Quando exibidas pelo código em execução, serão usados os formatos de hora e data abreviados da localidade do sistema, que podem ser diferentes da localidade do código. No exemplo abaixo, considera-se o inglês dos EUA.

MyTime e MyDate serão exibidas no ambiente de desenvolvimento, usando as configurações de hora e data abreviadas do sistema atual.

Exemplos

Dim MyTime, MyDate, MyStr
Let MyTime = #17:04:23#

Let MyTime = #17:04:23#

Let MyTime = #17:04:23#

' Retorna a hora atual do sistema no formato longo de hora definido pelo sistema.

Let MyDate = #Februry 05, 2010#



 ' Retorna a hora atual do sistema no formato longo de hora definido pelo sistema.
 Let MyStr = Format (Time, "Hora longa")

  ' Retorna a data do sistema atual no formato longo de data definido pelo sistema.
 Let MyStr = Format (Date, "Data longa") Let MyStr = Format (MyTime, "h:m:s")                     ' Retorna "17:4:23". Let MyStr = Format (MyTime, "hh:mm:ss AMPM")    ' Retorna "05:04:23 PM". Let MyStr = Format (MyDate, "dddd, mmm d yyyy")  ' Retorna "Quarta-feira,
  Jan 27 1993".

Se o formato não for especificado, retornará uma seqüência de caracteresLet MyStr = Format (23)    ' Retorna "23". 

Formatos definidos pelo usuário.Let MyStr = Format (5459.4, "##,##0.00")    ' Retorna "5.459,40". Let MyStr = Format (334.9, "###0.00")    ' Retorna "334,90". Let MyStr = Format (5, "0.00%")    ' Retorna "500,00%". Let MyStr = Format ("OLÁ", "<")    ' Retorna "olá". Let MyStr = Format ("Isto é tudo", ">")    ' Retorna "ISTO É TUDO".
 

Tags: Format,




Inspiration: