- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 16
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-14
|
3#
發表於 2013-2-19 22:09
| 只看該作者
本帖最後由 luhpro 於 2013-2-19 22:10 編輯
更新問題, 電腦日期格式是ddmmmyyyy
如何檢查要開啟的檔案日期格式是否相同
若檔案是mmmddyyyy 時, 如何 ...
enoch 發表於 2013-2-18 18:01 
觀看 WorkBooks 的 Open 方法中 Local 參數的說明 :
Local 選擇性的 Variant。
True 根據 Microsoft Excel 的語言儲存檔案 (包含控制台設定)。
False (預設值) 則根據 Visual Basic for Applications (VBA)
(通常為美式英語，除非執行 Workbooks.Open 的 VBA 專案是舊版的全球 XL5/95 VBA 專案) 的語言儲存檔案。
可以發現這個參數並不是指定日期或時間要以什麼格式來表示的.
所以想要達成你想要的目的,
應該是要從其他方面來著手.
我查了一下應該是不需要如你所述要做什麼修正,
而是只要於使用時指定 存(或顯示)成 我們想要的格式就可以了.
舉例如下:- Sub ex()
- Dim fs, f, s
- filespec = "C:\CONFIG.SYS" ' 要開啟的檔案名稱
- Set fs = CreateObject("Scripting.FileSystemObject")
- Set f = fs.GetFile(filespec)
- s = UCase(filespec) & vbCrLf & vbCrLf
- s = s & "檔案建立: " & Format(f.DateCreated, "mm/dd/yyyy hh:mm") & vbCrLf
- s = s & "最後存取: " & Format(f.DateLastAccessed, "yyyy/mm/dd hh:mm:ss") & vbCrLf
- s = s & "最後變更: " & Format(f.DateLastModified, "hh:mm:ss m/d/yy")
- MsgBox s, 0, "檔案資訊"
- End Sub
使用者自訂日期/時間格式範例
以下表格列出以使用者自訂日期/時間格式來顯示 December 7, 1958的範例：
格式 顯示結果
m/d/yy 12/7/58
d-mmm 7-Dec
d-mmmm-yy 7-December-58
d mmmm 7 December
mmmm yy December 58
hh:mm AM/PM 08:50 PM
h:mm:ss a/p 8:50:35 p
h:mm 20:50
h:mm:ss 20:50:35
m/d/yy h:mm 12/7/58 20:50 |
|
發表於 2013-2-23 16:28
| 
