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 век, не смотря на условия...что тут не так?
И мой код: 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 век, не смотря на условия...что тут не так?