彰化一整天的論壇

 找回密碼
 立即註冊
搜索
查看: 6457|回復: 0

Excel VBA指令format函數

[複製鏈接]
發表於 2013-10-18 09:43:36 | 顯示全部樓層 |閱讀模式
本帖最後由 discuz 於 2013-10-18 09:46 編輯

Format 函數範例
本範例示範以命名格式和使用者定義格式格式化值時, Format 函數的不同用法。對於日期分隔號(/),時間分隔號(,以及 AM/ PM 等文字而言,其真正的顯示格式會因電腦上的國別設定不同而有所差異。在開發階段,日期與時間是以短日期的格式,配合程式碼的國別設定來顯示的。而在執行階段,短日期則格式是根據系統的國別設定而定,而系統的國別設定和程式碼的國別設定可能並不相同。本範例中是假設國別設定為 English/U.S。

MyTime 及 MyDate 在開發還境下是以目前系統的短日期設定和日期設定顯示出來的。

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

' 以系統設定的長時間格式傳回現在系統時間。
MyStr = Format(Time, "Long Time")

' 以系統設定的長日期格式傳回現在系統日期。
MyStr = Format(Date, "Long Date")

MyStr = Format(MyTime, "h:m:s")    ' 傳回 "17:4:23"。
MyStr = Format(MyTime, "hh:mm:ss AMPM")    ' 傳回 "05:04:23 PM"。
MyStr = Format(MyDate, "dddd, mmm d yyyy")    ' 傳回 "Wednesday, Jan 27 1993"。
' 如果沒有指定格式,則傳回字串。
MyStr = Format(23)    ' 傳回 "23"。

' 使用者自訂的格式。
MyStr = Format(5459.4, "##,##0。00")    ' 傳回 "5,459.40"。
MyStr = Format(334。9, "###0。00")    ' 傳回 "334.90"。
MyStr = Format(5, "0。00%")    ' 傳回 "500.00%"。
MyStr = Format("HELLO", "<")    ' 傳回 "hello"。
MyStr = Format("This is it", ">")    ' 傳回 "THIS IS IT"。


資料來源:Excel VBA Help
vba_format_01.jpg

1.日期範例


回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2017-10-17 14:13 , Processed in 0.038168 second(s), 18 queries , Apc On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表