Wie kann ich überprüfen, ob ein Datum der Excel-Zelle innerhalb einer Woche ist?

Question

Ich bin VBA in Excel 2010 mit einem einfachen Geburtstagserinnerung Programm zu machen. Ich habe eine Spalte der Daten (Spalte D). Wie kann ich überprüfen, ob eine Zelle innerhalb einer Woche von heute?

Ich bin mir nicht sicher, was die VBA-Syntax für die bedingte Anweisung wäre:

For i = 2 To MAX_ROW
    cell = ActiveSheet.Cells(i, 4)
    If (Date(cell) - Date(Now()) <= 7) Then
      MsgBox(ActiveSheet.Cells(i, 1)
    End If
Next

Answer 1

Wenn die Zellen tatsächlich Geburtstage enthalten, müssen Sie das Jahr auf das laufende Jahr ändern, sagen:

If DateSerial(Year(Date), Month(Cell), Day(Cell)) - Date <= 7 Then