【源码+思路】定时执行任务
作者:昨夜星辰
今天说的定时执行任务是指到达某个时间点让脚本去执行任务,而不是每间隔多久让脚本去执行任务。区别就是,前者通常是判断时间,而后者通常是判断时间差,从实际应用中的使用途径也会有所不同。
思路1:
只判断时间,不判断日期。
优点:
无需填写日期。
缺点:
一旦当前时间超过设定时间,则条件一直达成。
源码:
Dim 当前时间, 设定时间
设定时间 = CDate("10:00")
Do
当前时间 = Time()
If 当前时间 >= 设定时间 Then
MessageBox "条件达成!"
ExitScript
End If
Delay 100
Loop
思路2:
既判断时间部分,也判断日期部分。
优点:
能精准地判断时间。
缺点:
即便时间部分不变,代码中也需要频繁更改日期部分,来实现每天的定时任务。
源码:
Dim 当前时间, 设定时间
设定时间 = CDate("2022/07/19 10:00")
Do
当前时间 = Now()
If 当前时间 >= 设定时间 Then
MessageBox "条件达成!"
ExitScript
End If
Delay 100
Loop
思路3:
既判断时间部分,也判断日期部分,但日期部分由代码自动计算。
优点:
能精准地判断时间,无需频繁修改日期部分。
缺点:
较以上两种思路而言,没有缺点。
源码:
Dim 当前时间, 设定时间
设定时间 = CDate("10:00")
设定时间 = 获取完整时间(设定时间)
Do
当前时间 = Now()
If 当前时间 >= 设定时间 Then
MessageBox "条件达成!"
ExitScript
End If
Delay 100
Loop
Function 获取完整时间(时间)
Dim 当前时间, 年月日
当前时间 = Now()
年月日 = Year(当前时间) & "/" & Month(当前时间) & "/" & Day(当前时间)
If CDate(时间) < Time() Then '时间已过
获取完整时间 = DateAdd("d", 1, CDate(年月日 & " " & 时间))
Else
获取完整时间 = CDate(年月日 & " " & 时间)
End If
End Function
相关推荐
定时执行exe或者bat的源码
这是一款自己编写的用于服务器或者单机定时或者设定多少分钟重复执行的小软件和源代码,是用vb编写,是初学者不可多得的一款典型教材,编写的代码一目了然,采用最简单的代码实现最复杂的功能。
易语言定时执行任务可倒计时源码
资源介绍:。易语言定时执行任务可倒计时源码。时间到了指定时间,就执行某任务。资源作者:。@jxfa0086768。资源界面:。资源下载:。如上述代码有BUG,请查看下图修改。感谢@向前 提供BUG修复源码。
PHP计划任务、定时执行任务的实现代码
PHP计划任务、定时执行任务的实现用到的函数 ignore_user_abort(),set_time_limit(0),sleep($interval) 此代码只要运行一次后关闭浏览器即可。
定时执行任务.rar
C#学习资料源码工具
java 定时执行任务 定时关机 定时重启
使用Java Swing写的一个小程序,用来定时关机、定时重启、定时执行某一个应用程序。执行时调用cmd命令执行的。其他的,就没什么了,最后用exe4j把jar打包成了exe文件,在本地测能用,不知道其他地方是否能用,内部有源码,可供参考。


