标题：固定时间执行计划任务

1楼

cyrollin 发表于：2024/3/1 14:05:00

Dim d As Date = Date.today

If d.hour = 07 Or d.Hour = 14 Or d.Hour = 18 Then

...

End If

间隔70000

到这几个时间点了没有执行。

[此贴子已经被作者于2024/3/1 14:05:02编辑过]

2楼

有点蓝 发表于：2024/3/1 14:11:00

间隔设置为3600000，然后代码

Dim d As Date = Date.today

If (d.hour >= 7 andalso d.hour <8) Orelse (d.hour >= 14 andalso d.hour < 15) Orelse (d.hour >= 18 andalso d.hour < 19) Then

3楼

cyrollin 发表于：2024/3/1 14:46:00

此主题相关图片如下：7777777777.png

我把系统时间调到13：59，然后再过一分钟也没执行14：00的任务。

[此贴子已经被作者于2024/3/1 14:46:51编辑过]

4楼

有点蓝 发表于：2024/3/1 14:49:00

间隔设置为3600000，启动计划后才开始计算，要等1小时后才会执行。也就是13：59启动计划，14：59执行

5楼

cyrollin 发表于：2024/3/1 14:54:00

哦，这样啊，谢谢，那我明天再看下结果。

6楼

cyrollin 发表于：2024/3/2 8:33:00

昨天下午启动计划了，但是晚上6点，今天早上7点都没执行任务。

7楼

有点蓝 发表于：2024/3/2 8:50:00

完整代码发上来看看

8楼

cyrollin 发表于：2024/3/2 9:24:00

就是一个msgbox("...")都没执行

9楼

有点蓝 发表于：2024/3/2 10:02:00

Dim d As Date = Date.today

改为

Dim d As Date = Date.now

共9 条记录, 每页显示 10 条, 页签: [1]