Пожаловаться
- 04.05.2018 04:13
- Информатика
- remove_red_eye 8458
- thumb_up 39
Ответы и объяснения 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
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
Пожаловаться
- 05.05.2018 12:49
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы