Month(Date1) = 2
Month(Date2) = 2

以上的二个日期并不一定是同月份，就像 1999/02/01 和 2000/02/01 一样！

要怎样做才会正确呢？

要使用 DateDiff ("m", Date1, Date2) = 0 表示同一月份(年度当然也相同)

程序如下：

If DateDiff ("m", Date1, Date2) then
MsgBox "不同月份"
Else
MsgBox "同月份"
End If