Календарь (ошибка при вводе даты)

Пользователь

Сообщений: 47199 Регистрация: 15.09.2012

02.07.2010 19:09:58

При вызове календаря и выборе месяца, отличного от текущего (например, май), дата вставляется правильно. Если опять открыть календарь и, не изменяя месяца, выбрать дату, то в комбо вписывается дата с текущим месяцем (июль).
Повлияли изменения? В Private Sub Cmd_Текущий_день_Click() установил
dt_1 = Now
Как обойти - и чтобы текущая дата на календаре, и без ошибок при вводе?

Прикрепленные файлы

post_135491.rar (18.24 КБ)

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#2 02.07.2010 20:37:15 Вить, что-то не пойму: если не меняем месяц принудительно - откуда взяться текущему? Календарь ведь не знает, что ты одновременно с днём предполагаешь смену месяца на текущий :-)

vikttur

Пользователь

Сообщений: 47199 Регистрация: 15.09.2012

02.07.2010 20:47:29

{quote}{login=Юрий М}{date=02.07.2010 08:37}{thema=}{post}Календарь ведь не знает, что ты одновременно с днём предполагаешь смену месяца на текущий :-){/post}{/quote}
Получается наоборот - я об этом не знаю (не хочу менять месяц на текущий), а календарь знает (и меняет) :)
Еще раз: при повторном вызове на календаре стоит тот же май, выбираю число - вставляет июль.

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#4 02.07.2010 20:48:18 Ситуация: ввели 10 мая. Увидели, что ошиблись и решили исправить на 11 мая.

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#5 02.07.2010 20:49:12 Я не так понял :-)

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#6 02.07.2010 20:53:26 The_Prist, If dt_1 = 0 Then dt_1 = FormatDateTime(Now) помогло, спасибо. Попутно - выход из If не обязателен, замещение - Exit Sub?

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#7 02.07.2010 21:06:26 Виктор спрашивает про однострочную запись проверки If - Then. Наверное.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#8 02.07.2010 21:17:26 Вопрос об отсутствии Else и End If.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#9 02.07.2010 21:21:49 Благодарю. Понятно. Ячейка заполнена :)

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#10 02.07.2010 21:23:55 Угадал.

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#11 03.07.2010 04:26:21 {quote}{login=The_Prist}{date=02.07.2010 09:20}{thema=Re: }{post}Это написано в справке. Если конструкция If ... then ... Else записана в одну строку(без переноса на следующую) - то End if не нужен. Если не нужно выполнять действие, при невыполнении условия, то Else так же опускается.{/post}{/quote}Хотя Дима и говорил мне что ВБА не похожа на формулы, но ведь похожа? В ЕСЛИ второй аргумент можно не указывать, прям как здесь...

Читают тему