帮忙设定vb定时

来源：百度知道 编辑：UC知道 时间：2024/06/03 21:42:46
要求是比如今天是3月11号是吧，那么我的程序要在3月11日后无法开启，或者开启直接关闭也可以，就是说要做个对比，我设定一个时间，比如就是今天，今天到了，就关闭，并且到时间前要提示离3月11日还多少天！

给100分，没满意我就直接关闭了！
请给我代码，我就是对比实在搞不好了，才来问的，谢谢 ,对于第一位的，我说我会直接关闭是因为有太多的人为了那一点分而乱答，随便打几个字！

Sub main()
MsgBox "离3月11号还有" & DateDiff("d", Date, #3/11/2009#) & "天"
If DateDiff("d", Date, #3/21/2009#) & "天" <= 0 Then
End
else
form1.show
end if
End Sub

工程--启动对象 sub main

直接读系统时间，与之前设定的时间做对比，

或者从某个服务器读时间与之前设定的时间对比

还有，我们这些人是为了帮助别人才在知道上回答问题的，

而不是为了赚分，你以为赚分可以买汉堡吃啊。

罢了