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

If GetConfigValue("试用起始日",# 1/1/2000 #)=# 1/1/2000 # 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()

 

运行后，日期明明是今天的日期，却是显示“系统时间被非法修改,不能进入系统!"到底问题出在哪里了？我把日期修改到第二天，就可以登录，再关掉，再重新登录，又进不去，把日期再向后推，才可以登录
，

 代码不应该这样，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()

在状态栏中要显示如下信息：“您使用的是试用版，试用时间还有*天”。试用时间假如设置5天，编写如下代码，为何状态栏只显示5天，无论如何修改时间，都是5天，编写的代码如下，请高手指点问题出在哪里

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.days & "天"
Else
    statusbar.message1 = "您使用的是正式牍,没有天数限制"
End If

能否援手一下，解决这个问题，不胜感激

利用messagebox.show(startday)  看看你保存的开始日期是什么时候.   

为了打开系统，我把系统日期调到6/17号，现在系统显示是：6/16号，但状态栏还是显示是为5天，问题出在哪里啊

看5楼.

保存的开始日期是2014-6-16号

statusbar.message1 = "您使用的是试用版,还能使用" & 5- tp.TotalDays & "天"

还是老样子，还是显示5天，怎么办啊