为什么KillTimer没起作用? [金字塔]
- 咨询内容：
Sub cs()
Call Application.SetTimer(0,5*1000) if time> "16:30:40" then call Application.KillTimer(0)
'if time> "16:30:40" then' application.msgout "yes"'else' application.msgout "no"'end if
End Sub
Sub Application_Timer(ID)Application.msgout Cdate(time) & ",0号计时器触发了"End Sub
16:29:59,0号计时器触发了16:30:04,0号计时器触发了16:30:09,0号计时器触发了16:30:14,0号计时器触发了16:30:19,0号计时器触发了16:30:24,0号计时器触发了16:30:29,0号计时器触发了16:30:34,0号计时器触发了16:30:39,0号计时器触发了16:30:44,0号计时器触发了16:30:49,0号计时器触发了16:30:54,0号计时器触发了16:30:59,0号计时器触发了16:31:04,0号计时器触发了
[此贴子已经被作者于2014/7/29 16:39:21编辑过] - 金字塔客服：
时间格式不对，改成 time > TimeSerial(
16,30,40 ) 再试试
- 用户回复：
没用!还是照样.其实,time> "16:30:40"这个写法我是调试通过了的
[此贴子已经被作者于2014/7/29 21:19:28编辑过]
- 网友回复：
[此贴子已经被作者于2014/7/29 21:23:06编辑过] - 网友回复： Call Application.SetTimer(0,5*1000) if time> "16:30:40" then application.msgout "yes" call Application.KillTimer(0) end if 加上调试语句看看killtimer代码行到底执行过没有
有思路，想编写各种指标公式，程序化交易模型，选股公式，预警公式的朋友
可联系技术人员 QQ: 1145508240 进行 有偿 编写！（不贵！点击查看价格！）
相关文章
-
没有相关内容
会员登录/注册