碰到这个问题，很多人第一个念头想到的就是『简单！只要使用 Month() 来判断就可以了』，但是这个方法却潜藏危机！为什么呢？例如：
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
