以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71239)
--  作者：zcgmxf
--  发布时间：2015/7/7 22:18:00
--  [求助]

老师好！如何定义一个按钮一天只能执行一次。请指教。谢谢！
--  作者：大红袍
--  发布时间：2015/7/7 22:21:00
--  
Dim pdate As Date = GetConfigValue("上次执行日期", nothing)
If pdate <> Date.Today Then
    msgbox("可以执行")
    SaveConfigValue("上次执行日期", Date.Today)
Else
    msgbox("今天已经执行过")
End If
--  作者：zcgmxf
--  发布时间：2015/7/7 23:14:00
--  
谢谢！