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

Question

(Excel 2010 VBA)我有一个单元格 (A1)，其中包含 mmm-yy 格式的日期(“自定义”类别)。例如，如果我输入 1/6/13，单元格将显示 June-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