以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  定时执行代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=184052)

--  作者:18920118515
--  发布时间:2022/11/23 13:31:00
--  定时执行代码
老师,计划管理是间隔一段时间执行代码,我想实现在每晚的24:00执行一个代码,该如何操作,您给指导下
--  作者:有点蓝
--  发布时间:2022/11/23 13:50:00
--  
间隔设置为1分钟,然后在代码里判断当前时间的小时和分钟值即可

if date.now.hour = 0 andalso date.now.minite = 0 then

如果要求不是那么严格,比如在00:00~00:30之间都可以执行一次,那么把间隔设置为30分钟即可,判断代码改为

if date.now.hour = 0 andalso (date.now.minite >= 0 orelse date.now.minite <30) then

--  作者:18920118515
--  发布时间:2022/11/23 13:53:00
--  
谢谢老师
--  作者:ycs5801
--  发布时间:2023/7/23 16:45:00
--  

 定时任务时间间隔,60000毫秒。

 

设定星期天,小时:16,分钟:42

If (d.DayOfWeek = x AndAlso d.Hour = dr("小时") AndAlso d.Minute = dr("分钟")) Then

。。。

 

这样为什么会触发两次?


--  作者:有点蓝
--  发布时间:2023/7/24 9:19:00
--  
调试
msgbox(x)
msgbox(dr("小时"))
msgbox(dr("分钟"))
If (d.DayOfWeek = x AndAlso d.Hour = dr("小时") AndAlso d.Minute = dr("分钟")) Then