单个公式中的日期值和格式

Question

我一直在用头撞墙试图找出动态文件名问题。

我正在尝试从包含时间数据的单元格 (J2) 中提取 6 位日期，并用它来保存我的文件名。单元格格式为 "General".

我唯一可以使用的公式是这个手动公式，它使用一个未占用的单元格 (W2)，然后删除（丑陋的，我知道）：

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

单元格数据是这样的

1/8/2015 2:00:00.000000 AM

我试过将 DateValue 函数嵌套在 Format 函数中，但无法正常工作。

有什么想法吗？

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")

单个公式中的日期值和格式

DateValue and Format in a single formula

format

excel

filenames

vba

date