i need to sort some arrays in the basis of date and time , i wrote some code.but it does not work properly.please help me

I solved this one on my own. Probably far from the most elegant, but this is what I did:

For i = 1 to Rec_count
For j = i to Rec_count
if CaldTime( i ) <> "" and CaldTime( j ) <> "" then

if( DateDiff("s",DateValue(CaldTime( i )) &" "& (FormatDateTime(CaldTime(i ),4)), DateValue(CaldTime( j)) &" "& (FormatDateTime(CaldTime(j ),4))) > 0) then

temp = CaldTime(j)
CaldTime( j ) = CaldTime( i )
CaldTime( i ) = temp

End If

End If

Next
Next

I wrote something in Access a long time ago that does something like this.

Ordering a Listbox where RowSourceType = "Value List"

Hope this helps

Thanku dear gvee
the link was very useful