Excel VBA - 将单元格中的日期与当前日期进行比较

Question

(Excel 2010 VBA)我有一个单元格(A1),其中包含格式为mmm-yy("自定义"类别)的日期.敌人的例子,如果我进入1/6/13,则单元显示6月13日.没关系.在我的VB宏中,我需要检查这个日期是月份是当月还是当年是否是当年.我不关心这一天.

Answer 1

这对你有帮助吗:

Public Sub test()
    d = Sheet1.Range("A1")
    n = Now()
    If Year(d) = Year(n) And Month(d) = Month(n) Then
        MsgBox "It works"
    End If
End Sub