format使用

0 数值配置符号，如果所指定的位置没有数值则印出0# 数值配置符号，如果本符号前面为0 则不印出. 小数点配置符号, 千分符号-_$()与空格符 文字字符则一五一十的印出

Format(Now(), "M/d/yy") 6/1/01Format(Now(),"MM 月dd 日,dddd,yyyy 年") 06 月01 日,星期五,2001 年Format(Now(),"MMM-d") 六月-1Format(Now(),"h:m:s") 9:10:11Format(Now(),"hh:mm:ss") 09:10:11 

Dim MyDateTime As Date = #1/27/2001 5:04:23 PM#Dim MyStr As String' Returns current system time in the system-defined long time format.MyStr = Format(Now(), "Long Time")' Returns current system date in the system-defined long date format.MyStr = Format(Now(), "Long Date")' Also returns current system date in the system-defined long date ' format, using the single letter code for the format.MyStr = Format(Now(), "D")' Returns the value of MyDateTime in user-defined date/time formats.MyStr = Format(MyDateTime, "h:m:s")   ' Returns "5:4:23".MyStr = Format(MyDateTime, "hh:mm:ss tt")   ' Returns "05:04:23 PM".MyStr = Format(MyDateTime, "dddd, MMM d yyyy")   ' Returns "Saturday,   ' Jan 27 2001".MyStr = Format(MyDateTime, "HH:mm:ss")   ' Returns "17:04:23"MyStr = Format(23)   ' Returns "23".' User-defined numeric formats.MyStr = Format(5459.4, "##,##0.00")   ' Returns "5,459.40".MyStr = Format(334.9, "###0.00")   ' Returns "334.90".MyStr = Format(5, "0.00%")   ' Returns "500.00%".MyStr = Format(23.99, "$##,##0.00")   ' Returns "$23.00".