技巧1
格式化 数值、 日期和 时间
Format 函 数 是 VBA 中的常用 函数，可 以实现数 值、日期 和时间格 式的转 变，示例 代码如 下：
Sub FromatCur rent()
MsgBox Format(12 3456.789, "0.00") & Chr(13) _
& Format(12 3456.789, "0.00%") & Chr(13) _
为长日期
格式显示
。
第 10 行 代
码将系统
时间格式
化 为 24 小
时、分钟
和秒的格
式显示。
第 11 行 代
码将系统
时间格式
化 为 分 12
小时、分
钟和秒的
格式显示
。
运
行
FromatCur
rent过程结
果如图
161‑1所示
。
格式化数值 图 161‑1 、日期和时
间
& Format(Da te, "yyyy-mmdd") & Chr(13) _
&
Format(Da
te,
"yyyymmdd
")
&
Chr(13) _
& Format(Da te, "Long Date") & Chr(13) _
&
Format(No
w,
"hh:mm:ss
")
&
Chr(13) _
& Format(No w, "hh:mm:ss AMPM")
其中参数
expressio
n是必需
的，任何
有效的表
达式。
参
数
format 是
可选的，
有效的命
名表达式
或用户自
定义格式
表达式。
第2行代码
将数值格
式化为两
位小数格
式显示。
第3行代码
将数值格
式化为两
位小数的
百分比格
式显示。
第4行代码
将数值格
式化为千
位分隔符
显示。
第5行代码
将数值格
式化为以
美元符号
显示的两
位小数，
以千位分
隔符分
隔，如果
是负值则
以小括号
显示。
第6行代码
将数值格
式化为以
人民币符
号显示的
两位小
数，以千位分隔符分 Nhomakorabea，如果是负值
则以小括
号显示。
第7行代码
将系统日
期格式化
为 “ yyyy-
mm-dd ”
格式显示
。
第8行代码
将系统日
期格式化
为
“
yyyymmdd
”格式显
示。
第9行代码
将系统日
期格式化
End Sub
代码解 析： FromatCu rrent 过 程 使用消息 框显示格 式化后的 数值、日 期和时间 。
Format 函 数根据格 式表达式 中的指令 来格式化 的数值、 日期和时 间，语法 如下：
Format(ex pression[ , format[, firstdayo fweek[, firstweek ofyear]]] )
&
Format(12
3456.789,
"##,##0.0
0")
&
Chr(13) _
& Format(123456.78 9, "$#,##0.0 0;($#,##0 .00)") & Chr(13) _
&
Format(-
123456.78
9, " ￥
#,##0.00;
(
￥
#,##0.00)
")
&
Chr(13) _