做个计划管理,写代码
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