DateValue和格式在一個單一的公式

Question

我一直在撞牆試圖找出一個動態文件名問題。

我試圖從包含時間數據的單元格（J2）中提取6位數字的日期，並使用它來保存我的文件名。單元格格式爲「常規」。

唯一式I可以得到的工作是本手冊式使用未佔用的小區（W2），然後刪除（難看，我知道）：

Range("W2").Formula = "=DateValue(J2)" 
RefDate = Format(Range("W2"), "m-d-yy") 
NameofFile = "On Time Departure " & RefDate 
Range("W2").Delete 

這些單元的數據是這樣的

2015年1月8日2：00：00.000000上午

我試過在Format函數中嵌套一個DateValue函數，但無法讓它工作。

任何想法？

Answer 1

試試這個：

Dim RefDate As Date 
RefDate = Range("J2").Value 
NameofFile = "On Time Departure " & Format(RefDate, "m-d-yy") 

編輯

如果J2包含一個字符串，而不是一個日期，像Christmas007指出，試試這個：

Dim curDate As String 
Dim RefDate As Date 

curDate = Range("J2").Value 
RefDate = DateValue(Left(curDate, InStr(curDate, " "))) 
NameofFile = "On Time Departure " & Format(RefDate, "m-d-yy")