如何将不常见的文本格式日期转换为日期并在vba中进行比较

Question

我在excel中有两列，我需要使用vba来完成这些操作：

一列的文本格式如下：第1列：2015/01/01/09:00:00日期和时间之间有一个/我需要以某种方式删除时间，并将此列与另一个日期格式的列进行比较：2015年1月30日

看起来没那么容易，欢迎教我怎么做，谢谢！

Answer 1

假设列A是第一列，B是第二列：

date1 = CDate(Left(Range("A1").Text, InStrRev(Range("A1").Text, "/") - 1))
If date1 = CDate(Range("B1").Text) Then MsgBox "Match!"