主题：[求助]请教设定有效期天数编码

请教高手，如何设置有效期的天数编码？可否给个例子？比如今天是2016-7-9，要到2016-9-5过期便打不开或无法使用

Dim val As String = GetConfigValue("FirstDate","")
If  val = ""  Then  '如果没有记录第一次启动日期.
    SaveConfigValue("FirstDate",Date.Today) '记录第一次启动日期
Else
    Dim dt As Date
    If Date.TryParse(val,dt) Then '如果记录的第一次启动日期有效
        If  (Date.Today-dt).Totaldays > 90 Then '如果已经超过90
            MessageBox.show("已经超过试用期!")
            Syscmd.Project.Exit()
        End If
    Else
            SaveConfigValue("FirstDate",Date.Today) '如果之前记录的日期无效，重新记录
    End If
End If

谢谢狐狸爸爸