Question

Помогите, пожалуйста, решить первое задание

Answer 1

Sub aaa()
    Yesterday = Date - 1 'Вчерашняя дата
    Birthday = DateValue(InputBox("Дата рождения в формате ДД.ММ.ГГГГ"))
    Years = Year(Yesterday) - Year(Birthday) 'Прожито полных лет на текущий год
    If Month(Yesterday) < Month(Birthday) Or _
        Month(Yesterday) = Month(Birthday) And _
            Day(Yesterday) < Day(Birthday) _
        Then Years = Years - 1 'Поправка
    MsgBox "Ваш возраст равен " + CStr(Years)
End Sub