以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  日期变量  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146311)

--  作者：tld --  发布时间：2020/2/21 9:25:00 --  日期变量 老师好。da1是日期变量。da2是工作日天数（必须是工作日，周六日节假日不算）。da是da1加da2工作日的日期。这怎么表示啊，谢谢老师。

--  作者：有点蓝 --  发布时间：2020/2/21 11:32:00 --   Dim da1 As Date = #01/01/2020# Dim da2 As Integer = 10 Do While da2 > 0     da1 = da1.adddays(1)     If da1.DayOfWeek = 0 Then         da1 = da1.AddDays(1)     ElseIf da1.DayOfWeek = 6 Then         da1 = da1.AddDays(2)     End If     da2 -= 1 Loop msgbox(da1)