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

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

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