- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 试用天数是这样算么？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153970)
-- 发布时间：2020/8/29 15:00:00
-- 试用天数是这样算么？
Dim regok As Boolean = getconfigvalue("注册状态",False) \'定义注册状态的变量
Dim startday As Date = GetConfigValue("试用起始日",Date.Today) \'定义第一次试用的日期
Dim reg As WinForm.Label = e.Form.Controls("Label2")
Dim tp As TimeSpan = Date.Today - startday
If regok = False Then
reg.text = "您使用的是试用版,还能试用" & 4 -tp.Days & "天"
Else
reg.text = "您使用的是正式版,没有试用天数限制"
End If
最终怎么是这样的结果？
此主题相关图片如下：qq图片20200831145431.png
-- 发布时间：2020/8/29 15:47:00
--
1、保存到配置里的日期就不正确
Dim startday As Date = GetConfigValue("试用起始日",Date.Today) \'定义第一次试用的日期
msgbox(startday )
2、试试
If regok = False Then
dim day as integer = 4 - tp.Days
if startday > Date.Today orelse day < 0 then
reg.text = "您使用的是试用版,已超过试用期"
退出项目
else
reg.text = "您使用的是试用版,还能试用" & day & "天"
end if
Else
reg.text = "您使用的是正式版,没有试用天数限制"
End If