- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 求日期对比公式i (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52999)
-- 发布时间：2014/6/27 10:35:00
-- [求助] 求日期对比公式i
我想实现：我使用的是外部数据表来管理登录用户、如果我当前登录的用户是表Users中Name的用户；那么就自动监测“截止日期”列的日期与当前电脑日期进行比较如果当前日期大于“截止日期”则禁止登录并弹出提示。
如附件：如果我当前登录用户为 “甲” 、监测到当前日期大于“截止日期”的日期，那么禁止登录并弹出提示；如果登录用户为 “乙” 、监测到当前日期小于“截止日期”列的日期；那么正常登录。
-- 发布时间：2014/6/27 10:41:00
--
利用SQLCOMMAND查找到对应的行 http://www.foxtable.com/help/topics/0696.htm
然后去日期列和 date.today 对比一下即可
-- 发布时间：2014/6/27 10:45:00
--
LoadUserSetting，代码
Dim fdr As DataRow = DataTables("users").SQLFind("Name = \'" & user.Name & "\'")
If Date.Today > fdr("截止日期") Then
msgbox("不能登录")
basemainform.close
End If
-- 发布时间：2014/6/27 10:51:00
--
如果我希望对比的是数据库服务器的日期、而不是当前电脑的日期；该怎么改？
-- 发布时间：2014/6/27 10:53:00
--
http://www.foxtable.com/help/topics/2318.htm