以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]请教设定有效期天数编码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90343)

--  作者：xyw8609 --  发布时间：2016/9/10 12:15:00 --  [求助]请教设定有效期天数编码 请教高手，如何设置有效期的天数编码？可否给个例子？比如今天是2016-7-9，要到2016-9-5过期便打不开或无法使用

--  作者：狐狸爸爸 --  发布时间：2016/9/10 12:33:00 --   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编辑过]

--  作者：xyw8609 --  发布时间：2016/9/10 12:45:00 --   谢谢狐狸爸爸