Сравнение дат в текстбоксе

@santtic · Регистрация: 24.01.2020

Студворк — интернет-сервис помощи студентам

Коллеги добрый день. Сегодня придумал незаурядную вещицу, но она все де сделала мой день
Нужно сравнить даты между Textbox1 и Textbox2 именно в самих Textbox все вроде заработало, но потом оказалось, что он сравнивает их по первым двум значениям. Но мне нужно именно по всей дате.
Подскажите что не так делаю?

@KoGG · 03.09.2021, 14:14

Сравнивать нужно даты, а не текст.

Visual Basic
1
If CDate(TextBox2.Text) < CDate(TextBox1.Text) Then

@santtic · 03.09.2021, 14:21 **[ТС]**

Сообщение от KoGG

If CDate(TextBox2.Text) < CDate(TextBox1.Text) Then

Добрый день. Пробовал такой вариант, но форма выпадает в ошибку при ввода второй даты.

@KoGG · 03.09.2021, 15:03

Наверное вторая дата не существует, как 30.02.2021.
И еще важны региональные стандарты даты, когда месяц ставится перед числом.

@Burk · 03.09.2021, 15:27

santtic, а вы уверены, что вам нужен Change а не событие по выходу из него - Exit
и TextBox2.Text лучше не писать, либо TextBox2.Value, либо просто TextBox2 они в разные моменты заносятся в форму

@santtic · 03.09.2021, 20:41 **[ТС]**

Сообщение от KoGG

Наверное вторая дата не существует

Мне кажется я не правильно писал) "орфография"
но по совету

Сообщение от Burk

либо TextBox2.Value

тоже ничего не происходит.
Сейчас попробую перепишу, и сообщу.
Спасибо за интерес и помощь.

@santtic · 03.09.2021, 20:55 **[ТС]**

прописал, работает но криво, снова по первому знаку берет.
опишу как планировал. При вводе даты в TextBox2 она является меньше чем в TextBox1, кнопка должна скрыться.
Региональные настройки все норм.

@santtic · 03.09.2021, 23:06 **[ТС]**

Ничего не пойму что не так делаю....
Пишу ведь : если комб2<комб1 кнопка пропала. Если комб2>комб1 кнопка появилась....уже другим способом, ничего не пойму.

@Burk · 04.09.2021, 06:08

santtic, так и не могу понять, а надо то что? Но поставьте всё-таки вместо строки с Change

Visual Basic
1
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

И что это за хохма CDate(TextBox2.Value = ""), зачем там = "", это у вас такие фантазии? Прочитайте про функцию CDate

@santtic · 04.09.2021, 11:50 **[ТС]**

Сообщение от Burk

что это за хохма CDate(TextBox2.Value = "")

Скажите пожалуйста, при вставлении вашего кода. Вы можете что то написать в Textbox2, я не могу, форма выпадет в ошибку....
Спасибо за проявленный интерес.
Тему можно закрыть.....

Добавлено через 22 минуты
Вроде заработал, оставлю тут, вдруг кому еще надо будет.

Code
1
2
3
4
5
6
7
8
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CDate(TextBox2.Value) >= Date Then
   CommandButton1.Visible = True 'кнопка видна
   End If
If CDate(TextBox2.Value) <= Date Then
CommandButton1.Visible = False'кнопку скрывает
  End If
 End Sub

@Burk · 04.09.2021, 13:21

santtic,

Сообщение от santtic

вдруг кому еще надо

Такие простые коды людям, достаточно знакомым с вба, вряд ли понадобятся. Это ещё не самый сложный макрос, который вам встретится

@santtic · 04.09.2021, 23:01 **[ТС]**

Скажите пожалуйста, не по теме. После обновления офиса стало проблемно работать с макросами. Точнее когда пишу их. Много раз наблюдал, вот он не работает что бы ты не делал....закрыл файл, открыл и макрос заработал. С чем это связано?
Спасибо.

@Burk · 05.09.2021, 07:15

santtic, что-то не так в настройках офиса либо он "гнутый",тогда взять другой

@santtic · 05.09.2021, 07:30 **[ТС]**

Доброе утро.
Лицензионный, и офис и виндовс. В свое время купил, нужно было по работе, вот и пользую.

@Burk · 05.09.2021, 07:49

santtic, проверить настройки. запустить несколько раз на другой машине

@santtic · 05.09.2021, 09:46 **[ТС]**

Точно, чего то не подумал про другой комп.
Спасибо за помощь.
Хорошего дня

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@KoGG 5645 / 1627 / 418 Регистрация: 23.12.2010 Сообщений: 2,444 Записей в блоге: 1
	03.09.2021, 15:03
	Наверное вторая дата не существует, как 30.02.2021. И еще важны региональные стандарты даты, когда месяц ставится перед числом. 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	03.09.2021, 15:27
	santtic, а вы уверены, что вам нужен Change а не событие по выходу из него - Exit и TextBox2.Text лучше не писать, либо TextBox2.Value, либо просто TextBox2 они в разные моменты заносятся в форму 0

@santtic 0 / 0 / 0 Регистрация: 24.01.2020 Сообщений: 201
	04.09.2021, 23:01 [ТС]
	Скажите пожалуйста, не по теме. После обновления офиса стало проблемно работать с макросами. Точнее когда пишу их. Много раз наблюдал, вот он не работает что бы ты не делал....закрыл файл, открыл и макрос заработал. С чем это связано? Спасибо. 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	05.09.2021, 07:15
	santtic, что-то не так в настройках офиса либо он "гнутый",тогда взять другой 0

@santtic 0 / 0 / 0 Регистрация: 24.01.2020 Сообщений: 201
	05.09.2021, 07:30 [ТС]
	Доброе утро. Лицензионный, и офис и виндовс. В свое время купил, нужно было по работе, вот и пользую. 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	05.09.2021, 07:49
	santtic, проверить настройки. запустить несколько раз на другой машине 0

@santtic 0 / 0 / 0 Регистрация: 24.01.2020 Сообщений: 201
	05.09.2021, 09:46 [ТС]
	Точно, чего то не подумал про другой комп. Спасибо за помощь. Хорошего дня 0