以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  计算几个工作日（月）之后的日期代码如何写  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=189062)

--  作者：nmxmnxf --  发布时间：2023/11/8 12:01:00 --  计算几个工作日（月）之后的日期代码如何写 小白请教：我有一个日期列，想计算该日期之后5个工作日（或几个月后）是什么日期的代码如何写？

--  作者：有点蓝 --  发布时间：2023/11/8 12:14:00 --   比如： Dim n As Integer = 5 Dim d As Date = Date.Today Do While n > 0     d = d.AddDays(1)     Do While d.DayOfWeek = 0 OrElse d.DayOfWeek = 6         d = d.AddDays(1)     Loop     n = n - 1 Loop MsgBox(d)