Войти

Показать полную графическую версию : Проблема со скриптом определяющий век по введенной дате


daniil_im
04-10-2017, 22:07
Вот сама задача:
И мой код: x=InputBox("Введите дату")
x=Cdate(x)
If x="01.01.2010 0:0:0" Then
y = "С Новым годом!"
ElseIf x>="01.01.2001" and x<="31.12.2099" Then
y = "21 век!"
ElseIf x>="01.01.1900" and x<="31.12.1999" Then
y = "20 век!"
End If
MsgBox "Дата="&x&vblf&y,, FIO


Собственно проблема в том что при вводе любой даты у меня всегда показывает что 21 век, не смотря на условия...что тут не так?

Iska
04-10-2017, 23:35
Вот сама задача: »
Это не задача, а исходные данные задачи. Покажите текст самого задания. И вообще — как понимать всю эту ересь:

XXI век исчисляется начиная с 0 года, а не с 2001?
XXI век исчисляется только до 2099 года, а не, как положено, до 2100 включительно?
XX век исчисляется начиная с 1900 года, а не, как положено, с 1901?
XX век исчисляется только до 1999 года, а не, как положено, до 2000 включительно?

Кто там задание составлял — собутыльник Гая Бореалиса Алколигулы?!




© OSzone.net 2001-2012