условие на равенство дат

[segail]

Здравствуйте.
Подскажите, правильно ли составлено условие на равенство дат? Если правильно, то почему выходит ошибка на данную строку?

 If CDate(Sheets("Отчет").Cells(i, 1).Value) = CDate(.TextBox_Дата.Value) Then

[аналитика]

что за ошибка и точка перед TextBox_Дата.Value к чему относится?

[Hugo121]

Что в .TextBox_Дата.Value? Точка нужна ли и можно ли это значение преобразовать в дату?

[R Dmitry]

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

Здравствуйте.
Подскажите, правильно ли составлено условие на равенство дат? Если правильно, то почему выходит ошибка на данную строку?

 If CDate(Sheets("Отчет").Cells(i, 1).Value) = CDate(.TextBox_Дата.Value) Then

либо уберите точку, либо выложите весь код, а так условие правильное

[segail]

Сообщение от аналитика

что за ошибка и точка перед TextBox_Дата.Value к чему относится?

Ошибка в смысле код не выполняется данная строка кода желтая…

Public Sub dt_dt()
Dim i As Integer
For i = 1 To 444
    With Form_SelectDate
        'Опреатор
            If CDate(Sheets("Отчет").[a6].Value) <> CDate(.TextBox_Дата.Value) Then
                If CDate(Sheets("Отчет").Cells(i, 1).Value) = CDate(.TextBox_Дата.Value) Then
                    'Опреатор
                End If
                    'Опреатор
            Else
                'Опреатор
            End If
                'Опреатор
    End With
Next
End Sub

[R Dmitry]

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

Ошибка в смысле код не выполняется данная строка кода желтая…

Public Sub dt_dt()
Dim i As Integer
For i = 1 To 444
    With Form_SelectDate
        'Опреатор
            If CDate(Sheets("Отчет").[a6].Value) <> CDate(.TextBox_Дата.Value) Then
                If CDate(Sheets("Отчет").Cells(i, 1).Value) = CDate(.TextBox_Дата.Value) Then
                    'Опреатор
                End If
                    'Опреатор
            Else
                'Опреатор
            End If
                'Опреатор
    End With
Next
End Sub

может ошибка в веденном значении textbox?

попробуйте проверить msgbox IsDate(CDate(.TextBox_Дата.Value))

[segail]

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

Что в .TextBox_Дата.Value? Точка нужна ли и можно ли это значение преобразовать в дату?

В Cells(i, 1) дата. В TextBox_Дата дата. Формат дат dd.mm.yyyy

[segail]

Может потому что дата в TextBox_Дата формируется при Initialize формы Form_SelectDate, а условие опережает событие?

[R Dmitry]

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

В Cells(i, 1) дата. В TextBox_Дата дата. Формат дат dd.mm.yyyy

а так попробуйте

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



а еще лучше приложили бы свою проблему в файле

[segail]

Excel 2007 двоичный формат.
Ошибку выдает на строку dt2 = CDate(Sheets("Отчет").Cells(i, 1).Value) кода Public Sub dt_dt() модуля Date_and_Time.
Данная строка и код закомментированы.

'...
'dt2 = CDate(Sheets("Отчет").Cells(i, 1).Value)
    If dt <> dt1 Then
    'If dt = dt2 Then
    '    .TextBox3.Value = Sheets("Отчет").Cells(i, 24).Value
    '    .TextBox3.Value = Sheets("Отчет").Cells(i, 25).Value
    '    If .TextBox3.Value = "" Then .ComboBox2.Value = "" Else _
    '    .ComboBox2.Value = Sheets("Отчет").Cells(i, 20).Value
    'End If
'...