批量倒计时器

请教一个时间计算的问题。
我需要做一个倒计时器，时间来源是从一网站上抓去（非系统时间）然后跟据抓取来的时间做倒记时，
记时终点为：白天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控件，能时时看到抓取时间和倒计时器的时间数字走动。



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

5 个解决方案

#1

没怎么看懂楼主的意思

#2

哪没懂呢

#3

看了2遍，没看懂。。。都不懂，问题啊，事情啊，没理解。

#4

楼主重说一遍

#5

http://video.shishicai.cn/Assist/BonusVideo.aspx?lt=4
看看这个，上面有个时间“北京时间:2011年7月18日 11:34:07”

我的软件功能就是抓取这个时间，再后像他一样，做个倒计时开将的。

开奖时间白天10点至晚上9点55，10分钟更新一次，夜间游戏晚上10点至凌晨2点，5分钟更新一次，全天共120期

#1