以文本方式查看主题

-  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=125041)

--  作者:15014737345
--  发布时间:2018/9/18 17:12:00
--  计划不能执行
甜老师帮我看看什么问题?计划不能执行,只执行了一次。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:xl (1).foxdb


--  作者:有点甜
--  发布时间:2018/9/18 18:03:00
--  

我这样测试没问题,我把间隔调成10秒测试没问题。

 

static count As Integer = 1
Dim cando As Boolean
If Date.Now.Hour >= 10 AndAlso Date.Now.Hour <= 22 Then
    If count = 2 Then
        count = 1
        cando = True
    Else
        count += 1
    End If
ElseIf  Date.Now.Hour > 22 OrElse Date.Now.Hour <= 2 Then
    cando = True
End If
If cando Then
    msgbox(111)
End If


--  作者:15014737345
--  发布时间:2018/9/18 18:13:00
--  
是不是只执行了一次,然后就不执行了?
--  作者:15014737345
--  发布时间:2018/9/18 18:17:00
--  
甜老师帮测试一下项目,我试了几次都不行,是不是其它部分代码的问题?
--  作者:有点甜
--  发布时间:2018/9/18 18:59:00
--  
以下是引用15014737345在2018/9/18 18:13:00的发言:
是不是只执行了一次,然后就不执行了?

 

请认真测试执行3楼代码。