格式化数值、日期和时间

admin

Format函数是VBA中的常用函数，可以实现数值、日期和时间格式的转变，示例代码如下：

1. Sub FromatCurrent()
   5 `, z" H( V0 C! V/ q, W& V
2.      MsgBox Format(123456.789, "0.00") & Chr(13) _
   
3.          & Format(123456.789, "0.00%") & Chr(13) _
   9 d* d. f3 y- T& T4 p* N9 ~/ G
4.          & Format(123456.789, "##,##0.00") & Chr(13) _
   $ A7 Z0 H. b* o" j. m, S6 o
5.          & Format(-123456.789, "$#,##0.00;($#,##0.00)") & Chr(13) _
   / k- d3 m, g! ]
6.          & Format(-123456.789, "￥#,##0.00;(￥#,##0.00)") & Chr(13) _
   4 }( O2 [7 {2 N" M% R& Q
7.          & Format(Date, "yyyy-mm-dd") & Chr(13) _
   4 g. p3 g" M, J3 M, [/ q% Y0 t5 b" e
8.          & Format(Date, "yyyymmdd") & Chr(13) _
   : q# V# o& G# h
9.          & Format(Date, "Long Date") & Chr(13) _
     f5 `) h3 y6 l" m! b
10.          & Format(Now, "hh:mm:ss") & Chr(13) _
    
11.          & Format(Now, "hh:mm:ss AMPM")
    3 `% e! `3 S& y. K2 ?* d* b
12. End Sub

复制代码

' v4 ?1 b, ], o7 B

代码解析：

FromatCurrent过程使用消息框显示格式化后的数值、日期和时间。

Format函数根据格式表达式中的指令来格式化的数值、日期和时间，语法如下：

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

其中参数expression是必需的，任何有效的表达式。

参数format是可选的，有效的命名表达式或用户自定义格式表达式。

第2行代码将数值格式化为两位小数格式显示。

第3行代码将数值格式化为两位小数的百分比格式显示。

第4行代码将数值格式化为千位分隔符显示。

第5行代码将数值格式化为以美元符号显示的两位小数，以千位分隔符分隔，如果是负值则以小括号显示。

第6行代码将数值格式化为以人民币符号显示的两位小数，以千位分隔符分隔，如果是负值则以小括号显示。

第7行代码将系统日期格式化为“yyyy-mm-dd”格式显示。

第8行代码将系统日期格式化为“yyyymmdd”格式显示。

第9行代码将系统日期格式化为长日期格式显示。

第10行代码将系统时间格式化为24小时、分钟和秒的格式显示。

第11行代码将系统时间格式化为分12小时、分钟和秒的格式显示。
, y5 ?- B3 }) f$ n) z