excel - Excel VBA - セルの日付を現在の日付と比較する

Question

(Excel 2010 VBA) mmm-yy (「カスタム」カテゴリ) の形式の日付を含むセル (A1) があります。たとえば、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

Answer 2

Dave と MiVoth に感謝します。

Dim xdate As Date  
xdate = Worksheets("sheet1").Range("A1")  
   If Month(Date) = Month(xdate) And Year(Date) = Year(xdate) Then  
      MsgBox "OK"  
   Else  
      MsgBox "not OK"  
   End If  

それは仕事をしました！
皆さん、どうもありがとう、
ガディ

Answer 3

これはどう：

Function MonthYear() As Boolean
MonthYear = False
If Not IsDate(Cells(1, 1)) Then Exit Function
If Month(Date) = Month(Cells(1, 1)) And Year(Date) = Year(Cells(1, 1)) Then
    MonthYear = True
End If
End Function

月と年が現在の日付と同じ場合、関数は true を返します。そうでない場合は false を返します。