[求助]哪错了？

wgf2005 · 发表于 2005-5-6 13:59

我从论坛中下载了一份学习VBA代码的资料，不知是资料中代码有错还是其它什么原因就是通不过。有两个问题一是试用天数、二是试用次数均未通过，可我逐字逐句进行了对照，没有发现我哪输入错了。高手给看看是什么原因？

xV7CV2Qx.rar (10.37 KB, 下载次数: 14)

guangyp · 发表于 2005-5-6 15:30

GF8f7bFK.rar (13.99 KB, 下载次数: 19)

wgf2005 · 发表于 2005-5-6 16:48

简直是误人子弟，那些害人的书籍真是垃圾，坑人不浅。

非常感谢guangyp给予纠正。谢谢！！！！！！！！！！

guangyp · 发表于 2005-5-6 17:20

问题2还存在问题，正在修正。

guangyp · 发表于 2005-5-6 17:55

把下面的代码加到问题2中即可修正在注册表中创建时产生的Bug，红色部分为与原文件不同处。

Private Sub Form_Load() On Error Resume Next Err.Clear Dim a As Long a = GetSetting("myapp", "set", "day") If Err > 0 Then SaveSetting "myapp", "set", "day", day(Now) a = GetSetting("myapp", "set", "day") End If If day(Now) - a > 10 Then MsgBox "试用期已过，请联系作者！" Else MsgBox "现在剩下：" & 10 - day(Now) + a & "天试用数，好好珍惜！" End If End Sub

wgf2005 · 发表于 2005-5-6 18:21

谢谢guangyp了！！！

有空能帮我看看日期对比如何做这个问题吗？

guangyp · 发表于 2005-5-8 01:36

以下是引用wgf2005在2005-5-6 18:21:00的发言：
谢谢guangyp了！！！

有空能帮我看看日期对比如何做这个问题吗？

已修改好，看看可以了吗？http://club.excelhome.net/viewthread.php?tid=96454

另外问题2中的日期比较还是有问题的，请楼主继续关注。

		自动登录	找回密码
密码			免费注册

[求助]哪错了？

你的代码存在逻辑上的错误，已修改好。