关于时间范围的控制！

Question

For i = ListView1.ListItems.Count To 1 Step -1
            If ListView1.ListItems(i).SubItems(15),< DTPicker1.Value or ListView1.ListItems(i).SubItems(15) > DTPicker2.Value Then
                ListView1.ListItems.Remove (i)
            End If
next当DTPicker1.Value ＝2004-08-01 DTPicker1.Value ＝2004-08-24 的时候!
发现 月1 到 18日也被删掉了!
而我希望的是只在列表中留下 8月1日到8月24日的内容!
请问错在哪里!

Answer 1

For i = ListView1.ListItems.Count To 1 Step -1
            If (cdate(ListView1.ListItems(i).SubItems(15))< cdate(DTPicker1.Value)) or (cdate(ListView1.ListItems(i).SubItems(15)) > cdate(DTPicker2.Value)) Then
                ListView1.ListItems.Remove (i)
            End If
next