Проблема со скриптом определяющий век по введенной дате
Вложений: 1
Вот сама задача:
И мой код:
Код:
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 век, не смотря на условия...что тут не так? |
Это не задача, а исходные данные задачи. Покажите текст самого задания. И вообще — как понимать всю эту ересь: - XXI век исчисляется начиная с 0 года, а не с 2001?
- XXI век исчисляется только до 2099 года, а не, как положено, до 2100 включительно?
- XX век исчисляется начиная с 1900 года, а не, как положено, с 1901?
- XX век исчисляется только до 1999 года, а не, как положено, до 2000 включительно?
Кто там задание составлял — собутыльник Гая Бореалиса Алколигулы?! |
Время: 09:43.
© OSzone.net 2001-
