Listbox Max. ve Min. Tarih değerlerini bulma

[ragnorak]

Listbox'ta 5.sütunda tarih değerlerim var. 5. sütundaki en büyük ve en küçük tarih değerini bulup textbox'lara yazmak istiyorum. Listbox değerleri sayfadan almıyor.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodlar ile yapabilirsiniz.

Sub Test()
    Dim Bak As Integer
    Dim EnBuyukTarih As Date
    Dim EnKucukTarih As Date
    EnBuyukTarih = ListBox1.List(0, 4)
    EnKucukTarih = ListBox1.List(0, 4)
    On Error Resume Next
    For Bak = 0 To ListBox1.ListCount - 1
        If EnBuyukTarih < ListBox1.List(Bak, 4) Then
            EnBuyukTarih = ListBox1.List(Bak, 4)
            If Err.Number = 13 Then
                MsgBox "Listede tarih olmayan bir değer var." & vbLf _
                & Bak + 1 & ". satırda bulunan '" & ListBox1.List(Bak, 4) & "' değeri tarih değil. Lütfen tarih verilerinizi kontrol ediniz.", vbExclamation
                Exit Sub
            End If
        End If
        If EnKucukTarih > ListBox1.List(Bak, 4) Then
            EnKucukTarih = ListBox1.List(Bak, 4)
        End If
    Next
    TextBox1.Text = EnBuyukTarih
    TextBox2.Text = EnKucukTarih
End Sub

 

[ragnorak]

Çok teşekkür ederim. Muteşem olmuş. Elinize sağlık