Как проверить, находится ли дата ячейки Excel в течение одной недели?

Question

Я использую VBA в Excel 2010, чтобы сделать простую программу напоминания о дне рождения. У меня есть столбец дат (столбец D). Как проверить, находится ли ячейка в течение одной недели с сегодняшнего дня?

Я не уверен, какой будет синтаксис VBA для условного оператора:

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

Если ячейки содержат фактические дни рождения, вам нужно будет изменить год на текущий, например:

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