Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
24.09.2022, 20:29:14

Войти
Хотите поблагодарить участника за дельный совет? Нажмите [Повысить]. Так вы заслуженно поднимите репутацию активному участнику.
32 837 Сообщений в 5 348 Тем от 6 475 Пользователей
Последний пользователь: lovelywill1
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  Сравнение двух дат!
Страниц: [1]   Вниз
Печать
Автор Тема: Сравнение двух дат!  (Прочитано 5184 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Elena666
Пользователь
**

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 87


Просмотр профиля
« : 05.09.2015, 13:14:15 »

Здравствуйте, форумчане.
Столкнулась с проблемой:
Необходимо сравнить две даты, которые появляются в ячейках посредством Userformы (Textbox1  и Textbox2). По результатам сравнения срабатывает макрос. Например А1>A2. Если даты в пределах одного месяца, то вся работает ОК. Если же месяца разные и тем более года, то программа не определяет, что одна дата больше другой. Понимаю, что проблемам в формате. Но что не так  - не понимаю. Подскажите, пожалуйста. Спасибо.
(Для примера в Образце сделана функция "ЕСЛИ", которая тоже "не понимает", что дата больше).
Записан
Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +481/-0
Офлайн Офлайн

Сообщений: 5 697



Просмотр профиля WWW
« Ответ #1 : 05.09.2015, 13:20:26 »

Из текстбокса по умолчанию даты записываются в ячейки в текстовом формате.
Поэтому либо при выгрузке на листе приводить к типу:
Код: (vb)
Cells(1,1).Value = CDate(TextBox1.Value)


либо при сравнении:
Код: (vb)
If CDate(Cells(1,1)) > CDate(Cells(2,1)) Then
Записан

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
Elena666
Пользователь
**

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 87


Просмотр профиля
« Ответ #2 : 05.09.2015, 14:52:00 »

Спасибо огромное! Получилось!
Записан
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru