VBA Format 函数返回具有指定格式的日期或数字的字符串。
Format(值,格式掩码)
使用Format函数以不同格式显示数值:
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
使用 Format 函数以不同格式显示日期:
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
可与 Format 函数一起使用的不同日期格式表(例如日期 01-08-2021 09:05:07):
符号 | 例子 | 描述 |
---|---|---|
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) |