Предмет: Информатика,
автор: 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
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
Предмет: Українська мова,
автор: glasha121221
Предмет: Математика,
автор: слушай