主题：[求助]这段代码问题出在哪里

 代码不应该这样，userday看看值是否正常。

If GetConfigValue("试用起始日期", Nothing) = Nothing Then
    SaveConfigValue("试用起始日期",Date.Today)
End If
Dim regok As Boolean = getconfigvalue("注册状态",False)
Dim useday As Date = GetConfigValue("试用日期", Date.Today)
Dim startday As Date = GetConfigValue("试用起始日期",Date.Today)

If regok = False Then
    If Date.Today < useday Then
        msgbox("系统时间被非法修改,不能进入系统!")
        syscmd.project.Exit()
        Return
    End If
    If Date.Today >startday.Adddays(4) Then
        Forms("注册窗口").open()
        Return
    End If
End If
SaveConfigValue("试用日期",Date.Today)

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

 回复楼上，代码没有错。

 你调试的时候，你修改了系统日期，导致执行了 SaveConfigValue("试用日期",Date.Today)，你再把时间调回来的时候，试用日期肯定是大于当前日期的啊。

 打开项目，重新设置一下 SaveConfigValue("试用日期",Date.Today)

 回复22楼，

Dim regok As Boolean = getconfigvalue("注册状态",False)
Dim startday As Date = GetConfigValue("试用起始日期",Date.Today)
Dim tp As timespan =  Date.Today - startday
If regok =  False Then
   
     statusbar.message1 = "您使用的是试用版,还能使用" & 5- tp.TotalDays & "天"
Else
    statusbar.message1 = "您使用的是正式牍,没有天数限制"
End If
messagebox.show(startday)