设置使用期限

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

'设置使用期限为3月10日以前
If Val(Right$(Date, 2)) > 10 And Val(Mid$(Date, 6, 1)) > 2 Then
MsgBox "您的使用期限已到！", 48, "警告！"
End If
请问是这样设置吗？

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

CLng(Date) >= CLng(CDate("2005-3-10"))

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

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

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

但是系统的日期如果被改了呢?上面的两个方法可就都被用户骗过去了。
思路就是这样：
把取得的日期保存到注册表里面，并且后一次获取的日期一定不能早于前一次的，否则取其中靠后的一个作为比较的依据。

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

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

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

VBA限制使用次数的程序?

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

期待有心人`~~~

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

没有高手帮忙吗?期待高手上传一个。