A função VBA Format retorna uma string com uma data ou número no formato especificado.
Format(valor, format_mask)
Usando a função Format para exibir valores numéricos em diferentes formatos:
Sub FormatExample1() '98.1% MsgBox Format(0.9814, "0.0%") '54'321.90 MsgBox Format(54321.9, "##'##0.00") '54 321.90 € MsgBox Format(54321.9, "# ##0.00 €") End Sub
Usando a função Format para exibir uma data em diferentes formatos:
Sub FormatExample2() myDate = #10/30/2020 3:35:45 PM# '30.10.20 MsgBox Format(myDate, "dd/mm/yy") '30 October 2020 MsgBox Format(myDate, "d mmmm yyyy") 'Friday MsgBox Format(myDate, "dddd") '30/10/2020 15:35 MsgBox Format(myDate, "dd/mm/yyyy hh:nn") 'Friday 30 at 15h35 MsgBox Format(myDate, "dddd d at h\hnn") End Sub
Uma tabela de diferentes formatos de data que podem ser usados com a função Format (por exemplo, para a data 01-08-2021 09:05:07):
Símbolos | Exemplo | Descrição |
---|---|---|
d | 8 | Day (from 1 to 31) |
dd | 08 | Day (from 01 to 31) |
ddd | Fri | Day of the week (abbreviated) |
dddd | Friday | Day of the week |
m | 1 | Month (from 1 to 12) |
mm | 01 | Month (from 01 to 12) |
mmm | January | Month (abbreviated) |
mmmm | January | Month |
yy | 21 | Year (last 2 digits) |
yyyy | 2021 | Year |
h | 9 | Hours (from 0 to 23) |
hh | 09 | Hours (from 00 to 23) |
n | 5 | Minutes (from 0 to 59) |
nn | 05 | Minutes (from 00 to 59) |
s | 7 | Seconds (0 to 59) |
ss | 07 | Seconds (00 to 59) |