combobox : формат данных

[maksim_serg]

Доброго времени всем!
вопрос такой: есть на форме два combobox'са с датами. не могу сравнить значения из них - получается 15.01.2000 больше чем 11.05.2010. он сравнивает по дням. а нужно сперва год, потом месяц, потом день...
мой код:

If Format(ComboBox2.Value, "dd.mm.yyyy") < Format(ComboBox1.Value, "dd.mm.yyyy") Then ComboBox2.Value = ComboBox1.Value

[EducatedFool]

мой код:

Вы сравниваете 2 текстовые строки - поэтому ошибка.

Попробуйте так (сравниваются числовые значения дат):

If cdate(ComboBox2) < cdate(ComboBox1) Then ComboBox2 = ComboBox1

[maksim_serg]

Пишет что не совпадение данных. список в combobox'се получен так:

Dim AllCells As Range, rCell As Range
Dim NoDupes As New Collection
Dim i As Long, j As Long
Dim Swap1, Swap2, Item

ProgressBar1.Value = 0

TextBox4.Value = Sheets("лист1").Range("M1").Value
n = Range("A2").Value - 1
    
    With Worksheets("лист1")
        Set AllCells = .Range("Y3:Y" & n)
    End With
    On Error Resume Next
    For Each rCell In AllCells
        NoDupes.Add rCell.Value, CStr(rCell.Value)
    Next rCell
    On Error GoTo 0
    For i = 1 To NoDupes.Count - 1
        For j = i + 1 To NoDupes.Count
            If NoDupes(i) > NoDupes(j) Then
                Swap1 = NoDupes(i)
                Swap2 = NoDupes(j)
                NoDupes.Add Swap1, before:=j
                NoDupes.Add Swap2, before:=i
                NoDupes.Remove i + 1
                NoDupes.Remove j + 1
            End If
        Next j
    Next i
    For Each Item In NoDupes
        FormFM.ComboBox1.AddItem Format(Item, "dd.mm.yyyy")
        FormFM.ComboBox2.AddItem Format(Item, "dd.mm.yyyy")
    Next Item

[EducatedFool]

Пишет что не совпадение данных.

Я сейчас всё брошу, и начну воссоздавать ваш файл со всеми вариантами данных в ячейках - и всё ради того, чтобы проверить ваш код...
Потом ещё надо будет создать форму - в точности такую же, как у вас.

Так что придётся вам подождать...

[maksim_serg]

ладно, что нибудь придумаем...

[nilem]

В коллекцию вы добавляете строковые значения:

NoDupes.Add rCell.Value, CStr(rCell.Value)

которые попадают потом в комбо.

FormFM.ComboBox1.AddItem Format(Item, "dd.mm.yyyy") - дает другое представление строки, а сравнивать надо даты. Поэтому используйте вариант от EducatedFool.

[maksim_serg]

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

Вы сравниваете 2 текстовые строки - поэтому ошибка.

Попробуйте так (сравниваются числовые значения дат):

If cdate(ComboBox2) < cdate(ComboBox1) Then ComboBox2 = ComboBox1

закрыл - открыл и все заработало...