VBA: Определить день недели для 25-летнего юбилея.

[Rom4ez]

Необходимо написать функцию на языке VBA для решения данной задачи.
Определить день недели для 25-летнего юбилея.

[Администратор]

Это не функция, а процедура.

Sub Макрос()

    Dim Birthday As Date, Ubday As Date
   
    ' День рождения.
    Birthday = "01.01.1990"
   
    ' Дата 25-летнего юбилея.
    Ubday = DateAdd("yyyy", 25, Birthday)
   
    ' Сообщение с днём недели даты, которая в переменной 'Ubday'.
    MsgBox "День недели: " & WeekdayName(Weekday(Ubday, vbMonday), False, vbMonday)
   
End Sub

[Администратор]

Этот макрос в виде  функции. Поместите процедуру 'Макрос' и функцию 'GetWeekday' в один модуль.
Затем запускайте процедуру 'Макрос'.

Sub Макрос()

    ' Здесь укажите день рождения.
    MsgBox "День недели: " & GetWeekday("01.01.1990")

End Sub

Private Function GetWeekday(Birthday As Date)

    Dim Ubday As Date

    ' Дата 25-летнего юбилея.
    Ubday = DateAdd("yyyy", 25, Birthday)
    ' Получение дня недели даты, которая в переменной 'Ubday'.
    GetWeekday = WeekdayName(Weekday(Ubday, vbMonday), False, vbMonday)
   
End Function