如何将不常见的文本格式日期转换为日期并在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!"