Seguramente ya existen post de este tipo, pero quiero sacarme la duda de una funsion, aver q consejos me pueden dar para mejorarla.

Los que hace es simplemente acomodar por fecha dentro de un rango de fechas, ¿qué es esto de rango de fechas? bueno simplemente si yo especifico a Text1 20/07/2010 y al Text2 28/07/2010 y le doy click al commandobutton [Filtrar] me filtra toda la informacion q aparece en mi listview. Dejándome solamente desde la fecha 20/07/2010 hasta la fecha 28/07/2010 todos los datos, y ordenados por fecha de menor a mayor. La información q aparece en el ListView es MUCHA!    es por eso tal ves aveces me mescle algúna q otra fecha.

Modulo:

 
Public Sub ordenarLV(LV As ListView, col As Integer)
 
   Dim Formato As String, i As Long, strData() As String
 
1       'ORDENAR LISTVIEW POR FECHA DE PASADO A PRESENTE
 
2       Formato = "YYYYMMDD"
 
3       With LV
4           With .ListItems
5               For i = 1 To .Count
6                   With .Item(i).ListSubItems(col)
7                       .Tag = .Text & Chr$(0) & .Tag
8                       If IsDate(.Text) Then
9                           .Text = Format(CDate(.Text), Formato)
10                      Else
11                          .Text = ""
12                      End If
13                  End With
14              Next i
15          End With
 
16          .SortOrder = 0    '.SortOrder = (.SortOrder + 1) Mod 2 ' Mayor a menor
17          .SortKey = col
18          .Sorted = True
 
19          With .ListItems
20              For i = 1 To .Count
21                  With .Item(i).ListSubItems(col)
22                      strData = Split(.Tag, Chr$(0))
23                      .Text = strData(0)
24                      .Tag = strData(1)
25                  End With
26              Next i
27          End With
28      End With
 
End Sub
 
Public Sub filtrarango(LV As ListView, F1 As String, F2 As String, col As Integer)
 
  Dim i         As Long
  Dim Tmp       As Integer
  Dim Day1      As String
  Dim Day2      As String
  Dim dat       As String
 
1       'FILTRAR RANGO
 
2       Day1 = Mid(F1, 1, 2)
3       Day2 = Mid(F2, 1, 2)
4       'dat = Mid(F1, 3, 10)
 
6       With LV
7           Tmp = .ListItems.Count
8           For i = 1 To Tmp
9               If i > Tmp Then Exit For
10              dat = .ListItems(i).ListSubItems(col)
11              dat = Mid(dat, 1, 2)
12              If dat >= Day1 And dat <= Day2 Then
13              Else
14                  'MsgBox dat
15                  .ListItems.Remove i
16                  i = i - 1
17                  Tmp = Tmp - 1
18                  If i = Tmp Then Exit For
19              End If
20          Next i
21      End With
 
End Sub
 
 

Form:

 
Private Sub Form_Load()
    Text1.Text = "20/07/2010"
    Text2.Text = "28/07/2010"
End Sub
 
Private Sub cmdrango_Click()
    Call filtrarango(LV, Text1.Text, Text2.Text, "3")
    Call ordenarLV(LV, "3")                                                     'En la columna 3 del listview tengo las fechas.
End Sub
 
 

Espero que puedan evitar mi problema, ya q muy pocas veces me mescla las fechas. Pregunto el problema puede ser porque llamo a las 2 funsiones a la ves, y si no es ese el problema cual es?

Salu2 y gracias a todos

Gracias BlackZeroX, pero tu funsion mezacla datos.

Public Sub filtrarango(LV As ListView, F1 As String, F2 As String, col As Integer)
 
  Dim i         As Long
  Dim Tmp       As Integer
  Dim Day1      As String
  Dim Day2      As String
  Dim dat       As String
 
1       'FILTRAR RANGO
 
2       Day1 = Mid(F1, 1, 2)
3       Day2 = Mid(F2, 1, 2)
4       'dat = Mid(F1, 3, 10)
 
6       With LV
7           Tmp = .ListItems.Count
8           For i = 1 To Tmp
9               If i > Tmp Then Exit For
10              dat = .ListItems(i).ListSubItems(col)
11              dat = Mid(dat, 1, 2)
12              If dat >= Day1 And dat <= Day2 Then
13              Else
14                  'MsgBox dat
15                  .ListItems.Remove i
16                  i = i - 1
17                  Tmp = Tmp - 1
18                  If i = Tmp Then Exit For
19              End If
20          Next i
21      End With
 
End Sub
 

Salu2 y gracias por tu ayuda.