将 mmmdd,yyyy 字符串转换为日期 VBA

Question

如何将字符串 mmmdd,yyyy (Apr16,2015) 转换为日期格式？ Cdate 和 datevalue 在这里不起作用提前致谢。

Answer 1

"Apr 16 2015" 可解析为：

dateStr = "Apr16,2015"
?cdate(left$(dateStr, 3) & " " & mid$(dateStr, 4, 2) & " " & right$(dateStr, 4))
16/04/2015

Answer 2

我经常使用以下方法。

dateStr = "Apr16,2015"
Yr = right(dateStr,4)
Mnth = left(dateStr,3)
Dy = mid(dateStr,4,5)
x = DateSerial(Yr,Mnth,Dy)

或

x = DateSerial(Year(dateStr), Month(dateStr), Day(dateStr ))

convert mmmdd,yyyy string into date VBA