以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  判断时间  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158896)

--  作者:nxqtxwz
--  发布时间:2020/12/6 17:28:00
--  判断时间
下面是时间段输入窗口判断代码
请问下面的代码想再加一个条件,离出差5天以内才可以开出差单,怎么写代码呢?也就是d要早于当天,小于today+5

Dim d As String = e.sender.text
If d <> Nothing AndAlso d < Date.today Then
   MessageBox.Show("学校规定必须在出差前开具出差单,不允许补开!如果您确实因特殊情况需要补开出差单,请在办公室登记经学校审核后办理.","日期填写错误提示")
    e.cancel = True
End If
--  作者:有点蓝
--  发布时间:2020/12/6 20:52:00
--  
http://www.foxtable.com/webhelp/topics/1337.htm

d要早于当天,小于today+5  -- 这个没看懂,早于当天就肯定小于today+5,第二个条件就是多余的

--  作者:nxqtxwz
--  发布时间:2020/12/7 16:11:00
--  

是today-5,我写错了。是不是可以改成:

Dim d As String = e.sender.text

If d <> Nothing AndAlso (d < Date.today andalso d>TDate.today-5) hen
   MessageBox.Show("学校规定必须在出差前开具出差单,不允许补开!如果您确实因特殊情况需要补开出差单,请在办公室登记经学校审核后办理.","日期填写错误提示")
    e.cancel = True
End If


--  作者:有点蓝
--  发布时间:2020/12/7 16:30:00
--  
http://www.foxtable.com/webhelp/topics/0260.htm