Найти дату

[Алексей_Андреевич]

Доброго дня! Помогите решить задачу- макросом нужно найти даты в календаре которые наиболее приближены по дням недели к текущей дате(плюс /минус день), в определённом периоде. И вывести их в столбец.
(ПРИМЕР: сегодня 27 сентября, вторник. Надо найти за последние полгода/год когда 27е число было тоже понедельником вторником или средой)

[Aleksandr H.]

Вариант 1.

Sub findData()
    Dim data As Date
    Dim yr, mon, r
    Dim dayNumber
    On Error Resume Next
    data = [a1]
    dayNumber = Day(ActiveCell)
    r = 1
    For yr = Year(data) - 10 To Year(data) + 10
        For mon = 1 To 12
           If Weekday(DateSerial(yr, mon, dayNumber)) = Weekday(data) Then
                r = r + 1
                Cells(r, "B") = DateSerial(yr, mon, dayNumber)
            End If
        Next
    Next
End Sub

проверки на корректность ввода и 29 февраля остается за тобой.

[vladimir199900]

спасибо, полезная информация