参考
Dim pdate As Date = GetConfigValue("上次执行日期", nothing)If pdate <> Date.Today Then msgbox("可以执行") SaveConfigValue("上次执行日期", Date.Today)Else msgbox("今天已经执行过")End If
加好友 
发短信
Post By：2015/8/3 10:06:00 [显示全部帖子]
