以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何实现每天24：00，赋值9  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99565)
--  作者：zhangjian222200
--  发布时间：2017/4/21 14:24:00
--  如何实现每天24：00，赋值9
Dim username As String
Dim dr As DataRow = DataTables("会员资料").sqlFind("手机 = \'" & username & "\'")
dr（“使用次数”）= 9  ’如何实现每天24：00，赋值9
--  作者：有点色
--  发布时间：2017/4/21 14:32:00
--  

 做个计划管理，写代码

 

static d As Date = Date.today.AddDays(-1)
If d <> Date.today AndAlso Date.Now.Hour = 0 AndAlso Date.Now.Minute = 0 Then
    d = Date.today
    
    \'赋值代码
    
End If
--  作者：zhangjian222200
--  发布时间：2017/4/21 20:19:00
--  

楼上代码:计划管理


static d As Date = Date.today.AddDays(-1)  ‘1.下次执行时，这里会再次赋值吗?会改变上次执行时，if语句内的赋值？（我感觉这里不能赋值的）

If d <> Date.today AndAlso Date.Now.Hour = 0 AndAlso Date.Now.Minute = 0 Then   


    d = Date.today
    
    \'赋值代码
    
End If


下面是帮助文档的内容：计划管理

假定希望系统每十分钟自动备份一次项目，可以增加一个计划，计划的执行间隔600000(毫秒)，也就是10分钟，计划的代码为：

Static dt As Date \'静态变量,用于保存上次备份的时间
Dim tp As TimeSpan
tp = Date.Now - dt  ’2.我自己测试了，当第1次执行，定义dt时赋值00:00:00,能够正确计算大于60秒

msgbox("dt旧值:" & dt)
If tp.Total秒 >= 60 Then
    dt = Date.Now
    msgbox("dt新值:" & dt)
End If

[此贴子已经被作者于2017/4/21 21:09:50编辑过]
--  作者：有点蓝
--  发布时间：2017/4/21 21:24:00
--  
先测试再说，实践出真知