求助：程序不能定时执行。

Question

做了一个程序，希望再每天的早上7点执行一些功能，用的是TIMER控件，操作系统WIN2000，结果现在每天到点以后不执行。

Answer 1

是不是你的TIMER控件触发时间设置长了啊 如果你是判断你的 TIMER = "7:00:00"的话 TIMER触发时间设置大于1000 那就有可能跳过整7点的

Answer 2

'Timer1.Interval = 10000 也没关系，仅仅会造成几秒钟的误差
Private Sub Timer1_Timer()
Static Executed As Boolean
    If Executed And Time < "07:00:00" Then
        Executed = False
    ElseIf Not Executed And Time >= "07:00:00" Then
        MsgBox "起床啦！" '你自己改成你的要求
    End If
End Sub

Answer 3

订正：
'Timer1.Interval = 10000 也没关系，仅仅会造成几秒钟的误差
Private Sub Timer1_Timer()
Static Executed As Boolean
    If Executed And Time < "07:00:00" Then
        Executed = False
    ElseIf Not Executed And Time >= "07:00:00" Then
        MsgBox "起床啦！" '你自己改成你的要求
        Executed = True  '此句忘了
    End If
End Sub

Answer 4

呵呵
那里要这么麻烦
不需要精确的话可以把时间格式化一下阿format(time,"hh:mm")
然后判断是不是＝07:00就可以了这样的话Timer1.Interval = 10000设为半分钟以上以分钟以内就可以了
继不会出错也不会耗费资源

Answer 5

麻烦了一点点，好处是：精度由 Timer1.Interval 决定。Timer1.Interval设的大，资源耗费少，精度低一点，也不会出错；Timer1.Interval设的小，精度高，资源耗费多一点，同样也不会出错。鲁棒性好。

Answer 6

顶，楼上说的对
再有，就是注意timer的间隔不要太大

Answer 7

我的timer设置的是1000，在自己的电脑上运行就没有问题，到了客户的机器上就不行了