使用特定的字符串格式将字符串转换为Excel日期和时间

Question

我有一个Excel/VBA宏,它列出了目录中的文件.

文件名格式为:yyyy-MM-dd @hh-mm-ss_ [description] .csv

例如 : 2013-07-03@22-43-19_my-file.csv

然后我需要将文件名的第一部分放入Excel Date对象(包括时间戳)

我找到了CDate()函数,但它没有采用任何"format"参数,并且Format()函数的工作方式错误,即将String转换为Date.

我想获取一个带有String和格式的函数,并返回一个Excel Date/Time对象.

有没有专门设计的功能？

谢谢,

Answer 1

试试这个:

Function ParseDateTime(dt As String) As Date
   ParseDateTime = DateValue(Left(dt, 10)) + TimeValue(Replace(Mid(dt, 12, 8), "-", ":"))
End Function