主题：如何实现每天24：00，赋值9

 做个计划管理，写代码

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

楼上代码:计划管理

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