Предмет: Информатика, автор: gord90rus

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

Приложения:

Ответы

Автор ответа: Аноним
0
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

Приложения:
Похожие вопросы
Предмет: Химия, автор: vlad10vakula
Предмет: Биология, автор: mironenkoulana0