PDA

View Full Version : سوال: به ترتیب تاریخ



Overhere
دوشنبه 11 شهریور 1392, 16:03 عصر
سلام من چطوری میتونم istbox1.items رو به ترتیب تاریخ و ساعت بکنم؟(هردو باهم)

bitasoft.ir
سه شنبه 12 شهریور 1392, 20:37 عصر
سلام من چطوری میتونم istbox1.items رو به ترتیب تاریخ و ساعت بکنم؟(هردو باهم)

سلام
ببینین این کدها کمکتون میکنه؟



Private Sub CommandButton3_Click()
'Sorts ListBox List
Dim i As Long
Dim j As Long
Dim temp As Variant

With Me.ListBox1
For j = 0 To ListBox1.ListCount - 2
For i = 0 To ListBox1.ListCount - 2
If .List(i) > .List(i + 1) Then
temp = .List(i)
.List(i) = .List(i + 1)
.List(i + 1) = temp
End If
Next i
Next j
End With
End Sub