|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
29.08.2010, 12:05 | #1 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
условие на равенство дат
Здравствуйте.
Подскажите, правильно ли составлено условие на равенство дат? Если правильно, то почему выходит ошибка на данную строку? Код:
|
29.08.2010, 12:09 | #2 |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
что за ошибка и точка перед TextBox_Дата.Value к чему относится?
|
29.08.2010, 12:12 | #3 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Что в .TextBox_Дата.Value? Точка нужна ли и можно ли это значение преобразовать в дату?
webmoney: E265281470651 Z422237915069 R418926282008
|
29.08.2010, 12:14 | #4 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
либо уберите точку, либо выложите весь код, а так условие правильное
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
29.08.2010, 12:15 | #5 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Ошибка в смысле код не выполняется данная строка кода желтая…
Код:
|
29.08.2010, 12:21 | #6 | |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
Цитата:
попробуйте проверить msgbox IsDate(CDate(.TextBox_Дата.Value))
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
Последний раз редактировалось R Dmitry; 29.08.2010 в 12:26. |
|
29.08.2010, 12:22 | #7 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
|
29.08.2010, 12:30 | #8 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Может потому что дата в TextBox_Дата формируется при Initialize формы Form_SelectDate, а условие опережает событие?
|
29.08.2010, 12:36 | #9 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
а так попробуйте
Public Sub dt_dt() Dim i As Integer For i = 1 To 444 Dim dt, dt1 As Date With Form_SelectDate 'Опреатор dt = Sheets("Отчет").[a6].Value dt1 = CDate(.TextBox_Дата.Value) If dt <> dt1 Then If dt = dt1 Then 'Опреатор End If 'Опреатор Else 'Опреатор End If 'Опреатор End With Next End Sub а еще лучше приложили бы свою проблему в файле
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
Последний раз редактировалось R Dmitry; 29.08.2010 в 12:50. |
29.08.2010, 13:49 | #10 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Excel 2007 двоичный формат.
Ошибку выдает на строку dt2 = CDate(Sheets("Отчет").Cells(i, 1).Value) кода Public Sub dt_dt() модуля Date_and_Time. Данная строка и код закомментированы. Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
C++. в зависимости от проверки элемента на равенство должен выводится правильный ответ | phantom4eg | Помощь студентам | 9 | 24.05.2010 22:41 |
Моя БД нарушает гендерное равенство. | kapitel_bc@ukr.net | Microsoft Office Access | 9 | 08.03.2010 13:52 |
Равенство трех переменных | k1r1ch | Общие вопросы C/C++ | 3 | 23.02.2010 20:54 |
Равенство по цвету | snakezx | Microsoft Office Excel | 1 | 30.03.2009 12:11 |
Проверить равенство числа открывающих и закрывающих круглых скобок | 010 | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 18.05.2008 00:27 |