在VBA中将非标准日期/时间格式解析为日期

Question

我有许多文本字符串，前面带有格式为

的时间戳

Oct 19, 2011, 5:00:40 AM GMT

我尝试使用isDate检查字符串的某个子集是否为Date，但唯一可用的部分是

Oct 19, 2011

我也希望得到时间数据。

提前致谢！

Answer 1

我确信有更简洁的方法可以做到这一点，但这可能会帮助你顺利完成：

对于日期值输入（显示在单元格B2中）：=DATEVALUE(MID(A2,1,FIND(",",A2,FIND(",",A2)+1)-1))

对于时间值输入（显示在单元格C2中）：=TIMEVALUE(MID(A2,FIND(",",A2,FIND(",",A2)+1)+1,12))

结果：