以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何设置成自动关闭程序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38569)

--  作者:wuxianzuoji41
--  发布时间:2013/8/1 13:24:00
--  如何设置成自动关闭程序
如何强制在每天的中午12:00和晚上5点半自动强制关闭程序,并自动保存数据
--  作者:Bin
--  发布时间:2013/8/1 14:12:00
--  
计划管理器每秒执行一次, 获得date.today 如果时间是12:00:00 那么就执行保存退出代码.
--  作者:有点甜
--  发布时间:2013/8/1 22:14:00
--  
参考代码
If Date.Now.Hour = 12 OrElse (Date.Now.Hour = 17 AndAlso Date.Now.Minute = 30)
    Syscmd.Project.Save()
    Syscmd.Project.Exit()
End If