以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]时间问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141421)

--  作者：crazyfengyu --  发布时间：2019/9/28 17:19:00 --  [求助]时间问题 假如有一列是时间列，状态列为正常，十天后自动将状态显示超时

--  作者：有点蓝 --  发布时间：2019/9/28 17:24:00 --   参考：http://www.foxtable.com/webhelp/topics/2471.htm

--  作者：crazyfengyu --  发布时间：2019/9/28 17:27:00 --   计算的时间可以排除周末吗？

--  作者：有点蓝 --  发布时间：2019/9/28 17:36:00 --   参考：http://www.foxtable.com/webhelp/topics/0229.htm Dim d As Date = #9/10/2019# \'某日期 Dim t As Integer = 10 ‘过期天数 Do While t > 0     If d.DayOfWeek = 0 OrElse d.DayOfWeek = 6 Then \'排除周末     Else         t -= 1     End If     d = d.AddDays(1) Loop If d < Date.Today Then     msgbox(d) \'排除周末，10天后的日期     msgbox("过期") End If