Finding Date in Listview

[JarekM]

Hi,
Is there anyone that can show me how to find in listview control column 2 the earliest date and populate it in textbox 1, and the latest date into textbox 2.

Thank you to anyone that can help me.

 

[Yongle]

This works for me

Dim Latest, Earliest, r, Itm
       
With Me.ListView1
        Latest = .ListItems(1).SubItems(1)
        Earliest = Latest
       
        For r = 1 To .ListItems.Count
            Itm = .ListItems(r).SubItems(1)
            If Itm > Latest Then Latest = Itm
            If Itm < Earliest Then Earliest = Itm
        Next r
    
        Me.TextBox1 = Earliest
        Me.TextBox2 = Latest
        
End With

 

[JarekM]

Thank you for your response.
When I entered your code an error showed up instead, on the second line of your code (Latest = .ListItems(1).SubItems(1) - It was highlighted in yellow), so I changed the declaration as seen below. The code has started to work, but I am not an expert in VBA and I just want to see if you can check it and make sure that it is fine or if there are any small changes that are needed because I don't want to have any errors show up in the future.

Here is the code that I used:

Dim Latest      As Date
Dim Earliest    As Date
Dim r, Itm

With Me.ListView1
      Latest = .ListItems(1).SubItems(1)
    Earliest = Latest

    For r = 1 To .ListItems.Count
        Itm = .ListItems(r).SubItems(1)
        If Itm > Latest Then Latest = Itm
        If Itm < Earliest Then Earliest = Itm
    Next r

    Me.txt_dataINI = Earliest
    Me.txt_dataFIM = Latest
End With

End Sub

Thank you

 

[Yongle]

thanks for the feedback
glad that you found a way to make it work for you