主题：[求助]这段代码怎样修改？

If GetConfigValue("试用起始日",# 1/1/2000 #)=# 1/1/2000 #
    SaveConfigValue("试用起始日",Date.Today)
End If
Dim startoday As Date = GetConfigValue("试用起始日期",Date.Today)
Dim regok As Boolean = getconfigvalue("注册状态",False)
Dim useday As Date =GetConfigValue("试用日期",Date.Today)
If regok = False Then
    If Date.Today < useday Then
        msgbox("系统时间被非法修改,不能进入系统!")
        syscmd.project.Exit()
        Return
    End If
If Date.Today >startoday.Adddays(4) Then
Forms("注册窗口").open()
Return
End If
End If
SaveConfigValue("试用日期",Date.Today)

Forms("用户登录").Open()

================================

问题:，系统日期没有修改，运行时，会显示"系统时间被非法修改,不能进入系统!，只有把系统日期往后修改，比如改成6月4号，就可以进入，代码哪里有问题，请帮忙查看一下

代码逻辑问题，你可以用这个方法分析：

http://www.foxtable.com/help/topics/1485.htm