Foxtable(狐表)用户栏目专家坐堂 → 固定时间执行计划任务


  共有1686人关注过本帖树形打印复制链接

主题:固定时间执行计划任务

帅哥哟,离线,有人找我吗?
cyrollin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
固定时间执行计划任务  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
cyrollin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2024/3/1 14:46:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:7777777777.png
图片点击可在新窗口打开查看

我把系统时间调到13:59,然后再过一分钟也没执行14:00的任务。
[此贴子已经被作者于2024/3/1 14:46:51编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/1 14:49:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
cyrollin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2024/3/1 14:54:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
cyrollin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2024/3/2 8:33:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/2 8:50:00 [只看该作者]

完整代码发上来看看

 回到顶部
帅哥哟,离线,有人找我吗?
cyrollin
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2024/3/2 9:24:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/2 10:02:00 [只看该作者]

Dim d As Date = Date.today
改为
Dim d As Date = Date.now

 回到顶部