檔案最後修改時間 | =EDITTIME(TODAY()) | 2016/6/2408:51:36 AM |
目前電腦時間 | = EDITTIME1() | 2018/1/2110:38:40 PM |
‘ 利用傳入 Today() 函數的值,讓自訂函數能和 Today() 函數一樣經常重新計算
‘ 函數名稱:EDITTIME
‘ 傳入值型態:日期
Function EDITTIME(filedate As Date)
' 從現在開啟的這個 Excel 檔案 (ThisWorkbook) 的屬性,
' 取得此檔案的 BuiltinDocumentProperties 屬性值中的「Last Save Time(上次修改時間)」,
EDITTIME = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
' 也可以利用這個屬性取得上次列印日期 (Last Print Date)、最後編輯者 (Last Author) 等等檔案資訊
End Function
'傳入值:無
Function EDITTIME1()
Application.Volatile
' 傳入檔案路徑,取得該檔案的建立或最後修改時間
EDITTIME1 = FileDateTime(ActiveWorkbook.Path)
End Function