[求助]请教设定有效期天数编码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

[此贴子已经被作者于2016/9/10 12:35:37编辑过]

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