批量倒计时器

请教一个时间计算的问题。
我需要做一个倒计时器，时间来源是从一网站上抓去（非系统时间）然后跟据抓取来的时间做倒记时，
记时终点为：白天10点至晚上9点55，间隔10分钟，晚上10点至凌晨2点，间隔5分钟
如:
抓取时间 结束时间
10:21--------10:30
10:34--------10:40
10:01--------10:10
11:49--------11:50
...
22:01--------22:05
22:08--------22:10
22:11--------22:15


问题：
1.结束时间时动态计算得出？还是预先设置放数组，然后再来匹配？ 下面代码我是用的做成数组
2.在数组里找到最近的整数时间后，怎么做倒计时器？ 就是抓取时间到最近的整数时间这之间的倒计时
倒记时到后，会再次执行抓取时间的动做，这时用新抓取的时间再次重复上面的。


要求有个两Label控件，能时时看到抓取时间和倒计时器的时间数字走动。


VB code

Dim EndTime(120)
Private Sub Form_Load()

For i = 1 To 72
EndTime(i) = DateAdd("d", 10, Format(#9:50:00 AM#, "hh:mm:ss"))
Next i
For i = 73 To 120
EndTime(i) = DateAdd("d", 5, Format(#9:50:00 PM#, "hh:mm:ss"))
Next i

End Sub

Private Sub Command9_Click()
X = "2011年7月18日 10:26:33"
For i = 1 To 120
    If UCase(X) = EndTime(i) Then       '这里怎么写匹配？
        MsgBox X & "是数组中第" & i + 1 & "个元素"  
        Exit For
    End If
Next i
End Sub

没怎么看懂楼主的意思