试用天数是这样算么？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 试用天数是这样算么？

共有2903人关注过本帖树形打印复制链接主题：试用天数是这样算么？

yfy13338431925

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

试用天数是这样算么？ 发帖心情

Post By：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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

主题：试用天数是这样算么？