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

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

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

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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