Смена сезона

[Saturn.65]

Код: Выделить всё

If Val(Text1.Text) > = Val(Text2.Text) Then
MsgBox "Сменить на летнее расписание"
End If

В Text1.Text выводится дата, а в Text2.Text число, с которым надо сравнивать.
Т.е. если наступило 1 мая, то должно быть сообщение. Не могу понять, почему не выходит. Должно быть, что пишется дата с точками? Как бы сделать иначе?

[Хакер]

Не могу понять, почему не выходит.

Бредовый код. Потому и не выходит.

[dr.MIG]

Saturn.65, если там у тебя в TextBox планируется вводить дату, то и пытайся преобразовать содержимое TextBox к дате, используя CDate. А сравнивай уже даты, полученные при преобразовании. И не забывай обрабатывать 13-ю ошибку.

[Saturn.65]

Бредовый код. Потому и не выходит.

Я понимаю. Как бы привязаться попроще, чтоб менять ? CDate я не знаю без примера.

[Хакер]

Ну так узнай. Проще всего сказать «не знаю».

[Saturn.65]

Проще всего сказать «не знаю».

Согласен. А я не из таких. Нашел выход, хоть может и через зад: Text1.Text = Format(Date, "mm")
Теперь сравниваю без проблем. Если месяц 05, то можно на лето менять, если 11, то на зиму.