以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  定时器初始时间  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=75295)
--  作者：deni977
--  发布时间：2015/2/3 9:00:18
--  定时器初始时间
请教如何设置定时器初始启动时间？比如说设置一个定时器，每10分钟循环一次，如何设置这个定时器从什么时间开始？（目前全部都是从设置就启动定时器）
--  作者：FexTel
--  发布时间：2015/2/3 9:23:06
--  

Call Application.SetTimer(0,5*100)
if time>"23:30:40" then
call Application.KillTimer(0)
end if
End Sub

 

//学习下VBA里面的时间函数
--  作者：王锋
--  发布时间：2015/2/3 10:47:01
--  
从你 SetTimer 时开始
--  作者：deni977
--  发布时间：2015/2/4 23:59:20
--  

感谢回复！因为是初学VBA，所以很多未能够灵活应用，感谢耐心指点。

 

设计的意图是每10分钟进入定时器，比如检查帐户状态、并发送QQ信息等等，所以定时器 SetTimer放在 VbaStart事件，但是每次启动软件的时间是不一样的，这样就很难做到整点的间隔了，比如9：00，9：10……目前只能做到的是根据启动金字塔的时间定时10分钟，这个每次都不一样。

 

 
--  作者：FexTel
--  发布时间：2015/2/5 9:05:06
--  

Call Application.SetTimer(0,5*100)
if time>"10:00:00" then
call Application.KillTimer(0)
end if
End Sub

 

Sub APPLICATION_TIMER(id)

 

//这里面跟触发事件


End Sub

 

//你设置定时器整点启动,然后对应10分钟间隔即可