Creating a TV Programs timetable with vb6

[samvb]

Hi,

I am creating a program for television shows/programs. everything works fine...time taken by a particular program, total time wasted in a day, week and used in day, week, specific hours etc.

i am having problem during data entry. after the user clicks "Add Program", it is added to a listview. my problem now is this:

say the user enters starting time of a program to be 8:00, and next program at 9:00...after all are added, he may enter 7:30 or 7:45. i need this hour to be added before 8:00 in the listview. so far my codes haven't been able to search for the right "position" to place it in the listview.

any idea please?

[Rabbit]

It would help if you posted the code that you tried.

[samvb]

Private Sub InsertProgramTime(ByVal pgt As String)
 
Dim lp As Integer
Dim lpup As Integer
Dim lpdown As Integer
Dim cnt As Integer
Dim currenttime As String
Dim beforetime As String
Dim aftertime As String
Dim timedc As Double
cnt = lvtt.ListItems.Count
If cnt = 0 Then
programindex = 1
Exit Sub
End If
 
If pgt = "__:__" Then
programindex = cnt + 1
Exit Sub
End If
 
For lp = 1 To cnt
lpup = lp + 1
lpdown = lp - 1
 If lpup > cnt Then lpup = cnt
 If lpdown <= 0 Then lpdown = 1
 currenttime = lvtt.ListItems(lp).ListSubItems(1).Text 'current row
 beforetime = lvtt.ListItems(lpdown).ListSubItems(1).Text 'time before current row
 aftertime = lvtt.ListItems(lvup).ListSubItems(1).Text 'time after current row
timedc = DateDiff("s", currenttime, pgt)
If timedc < 0 Then 'previous to that row
programindex = lp
Exit Sub
Exit For
End If
 
 
 
 
Next lp
 
programindex = cnt + 1
 
 
 
End Sub
 
 

is the code i tried. it accepts "8:00" format argument (24-hours).

[samvb]

Private Sub InsertProgramTime(ByVal pgt As String)
 
Dim lp As Integer
Dim lpup As Integer
Dim lpdown As Integer
Dim cnt As Integer
Dim currenttime As String
Dim beforetime As String
Dim aftertime As String
Dim timedc As Double
cnt = lvtt.ListItems.Count
If cnt = 0 Then
programindex = 1
Exit Sub
End If
 
If pgt = "__:__" Then
programindex = cnt + 1
Exit Sub
End If
 
For lp = 1 To cnt
lpup = lp + 1
lpdown = lp - 1
 If lpup > cnt Then lpup = cnt
 If lpdown <= 0 Then lpdown = 1
 currenttime = lvtt.ListItems(lp).ListSubItems(1).Text 'current row
 beforetime = lvtt.ListItems(lpdown).ListSubItems(1).Text 'time before current row
 aftertime = lvtt.ListItems(lvup).ListSubItems(1).Text 'time after current row
timedc = DateDiff("s", currenttime, pgt)
If timedc < 0 Then 'previous to that row
programindex = lp
Exit Sub
Exit For
End If
 
 
 
 
Next lp
 
programindex = cnt + 1
 
 
 
End Sub
 
 

is the code i tried. it accepts "8:00" format argument (24-hours).

[samvb]

Oh, I finally got the solution:

[/code]
Private Sub InsertProgramTime(ByVal pgt As String)
Dim looper3 As Integer
Dim cnt As Integer
cnt = lvtt.ListItems.Count
If cnt = 0 Then
programposition = 1
Exit Sub
End If

For looper3 = 1 To lvtt.ListItems.Count

If DateDiff("s", lvtt.ListItems(looper3).ListSubItems(1).Text, pgt) < 0 Then

programposition = looper3
Exit Sub
Exit For

End If
Next looper3
programposition = lvtt.ListItems.Count + 1


End Sub

[/code]