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

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()

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

在状态栏中要显示如下信息：“您使用的是试用版，试用时间还有*天”。试用时间假如设置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

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

重新运行了一下程序，发现每次修改时间，startday的日期都是修改后的时间，比如，我修改成6/18号，startday就是6/18，把系统时间改成20号，startday 就是6/20号，问题是出在STARTDAY，代码都在上面，请问如何修改呢

在一楼代码里，

If GetConfigValue("试用起始日期", Nothing) = Nothing Then
    SaveConfigValue("试用起始日期",Date.Today)
End If
这句代码里，已经把"试用起始日期"保存为DATE.TODAY了，"试用起始日期"就是后面的startday:

Dim startday As Date = GetConfigValue("试用起始日期",Date.Today)
各位高手，我理解的是不是有错误？请指点