以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  请教，如何整点运行VBA程序  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=6226)
--  作者：liwei_bj
--  发布时间：2011/4/20 11:10:41
--  请教，如何整点运行VBA程序
我想让选股程序在整点运行，比如09：30，10：30，14：00等，我是设置了一个30秒的timer，然后在timer事件中判断时间是否为整点，请问是否有更简单的方法？就像VBA里面的Application.OnTime TimeValue("09:30:00")的用法？
--  作者：guotx2010
--  发布时间：2011/4/20 12:11:49
--  

\'设置一个计时器

Sub Applocation_VBAStart()
     Call Application.SetTimer(2, 5000)
End Sub

 

\'计时器程序中，判断是否为整点

Sub APPLICATION_Timer(ID)

    If Time = CDate("9:30") Then

         \'代码

    End if

    If Time = CDate("10:00") Then

         \'代码

    End if

    ...

 

End Sub

 
--  作者：msedu
--  发布时间：2011/5/5 9:59:09
--  

不错。。。

 

：-）