设置使用期限

houlinbo

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

clement

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


思路就是这样：


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

雪山飞狐_lzh

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

小美菜

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

houlinbo

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

houlinbo

VBA限制使用次数的程序?

jianlin521

期待有心人`~~~

njyulei

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