houlinbo 发表于 2005-2-25 20:16:00

设置使用期限

'设置使用期限为3月10日以前


If Val(Right$(Date, 2)) &gt; 10 And Val(Mid$(Date, 6, 1)) &gt; 2 Then<BR>MsgBox "您的使用期限已到！", 48, "警告！"<BR>End If<BR>


请问是这样设置吗？

clement 发表于 2005-2-27 13:46:00

但是系统的日期如果被改了呢?上面的两个方法可就都被用户骗过去了。


思路就是这样：


把取得的日期保存到注册表里面，并且后一次获取的日期一定不能早于前一次的，否则取其中靠后的一个作为比较的依据。

雪山飞狐_lzh 发表于 2005-2-26 22:36:00

CLng(Date) &gt;= CLng(CDate("2005-3-10"))

小美菜 发表于 2005-2-26 23:02:00

If month(Date, 2) &gt; 10 And day(Date, 6, 1) &gt; 2 Then<BR>MsgBox "您的使用期限已到！", 48, "警告！"<BR>End If<BR>

houlinbo 发表于 2005-2-27 18:39:00

VBA限制使用次数的程序谁能给传上来？

houlinbo 发表于 2005-5-9 21:13:00

VBA限制使用次数的程序?

jianlin521 发表于 2012-7-3 00:08:53

期待有心人`~~~

njyulei 发表于 2012-7-27 09:00:38

没有高手帮忙吗?期待高手上传一个。
页: [1]
查看完整版本: 设置使用期限