| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 判断时间 (http://foxtable.com/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 ThenMessageBox.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 |
| -- 作者：有点蓝 -- 发布时间：2020/12/7 16:30:00 -- http://www.foxtable.com/webhelp/topics/0260.htm |