Access培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 综合其它

限制软件30天日期试用

时 间:2012-06-30 08:43:36
作 者:风行   ID:16058  城市:江阴
摘 要:代码如下
正 文:

Dim ReValue As Date '声明时间变量
Dim name As String '声明字符串变量,软件名称
Dim dd As Variant '声明数值变量,dd为日期差
name = "gggg" '给变量赋值软件名为gggg
ReValue = GetSetting(name, "MainKey", "DateValue", Date) '读取注册表软件名gggg的键值,考试大提示如果没有则为当前日期
Me.Text1 = ReValue
dd = Dathttp://www.100ksw.com/eDiff("d", ReValue, Date) '计算日期差
Me.Text2 = dd
If dd = 0 Then '如果是第一天运行
SaveSetting name, "MainKey", "dateValue", Date '写注册表
End If
If dd > 30 Then
MsgBox "软件已过期"
Else
MsgBox "软件可以试用"
'DoCmd Quit
MsgBox "还剩下" & 30 - dd & "天试用期!"

Access软件网官方交流QQ群 (群号:864245409)       access源码网店

最新评论 查看更多评论(5)

2019/3/20 18:21:51张海洋
同问,这些代码放在哪里啊?

2017/8/1 13:41:50顾正军
这个代码放在哪里呢?

2015/2/28 21:22:18余志明
有误码:dd = Dathttp://www.100ksw.com/eDiff("d", ReValue, Date) '计算日期差。  应改为:dd = DateDiff("d", ReValue, Date) '计算日期差

2015/2/28 21:21:09余志明
1

2013/7/25 14:02:53凌云
限制代码要写在软件的登陆代码中吗

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助