可以的，判断好时间即可，类似
'如果是凌晨3点,则进行一些一天才处理一次的任务
Dim dNow As Date = Date.Now
If dNow.Hour = 3 AndAlso Format(s_TaskDate,"yyyyMMddHH") <> Format(dNow,"yyyyMMddHH") Then
s_TaskDate = Date.Now
s_Tasking = True
Functions.Execute("LogText","开始一天才处理一次的任务")
'每月28日才重置默认的选择题序
If dNow.Day = 28 Then
Functions.Execute("LogText","月28日开始设置默认的选择题序,T_SetDefaultRandSelectionTask")
End If
'每周四 才重置本周已做题的选择题序,根据实际使用频率再调整
If dNow.DayOfWeek = 4 Then
Functions.Execute("LogText","周4开始设置已做题的用户的选择题序,T_SetUserSelectionTasks")
End If
End If
s_Tasking = False
加好友 
发短信
Post By：2018/4/27 21:06:00 [显示全部帖子]
