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

【问题标题】：convert mmmdd,yyyy string into date VBA将 mmmdd,yyyy 字符串转换为日期 VBA
【发布时间】：2015-04-17 11:44:58
【问题描述】：

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

【问题讨论】：

【解决方案1】：

"Apr 16 2015" 是可解析的，所以：

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

【讨论】：

【解决方案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 ))

【讨论】：