比如表1 有字段1 当前日期tody 交期是4天(不含周日) 字段2 最晚日期 如果自动计算最晚日期
举例:当前日期2020-11-28 4天后的日期 2020-12-02 有一个周日 所以应该是2020-12-03
dim n as integer
for i as integer = 1 to 交期天数
n += if(当前日期.Ddddays(i).DayOfWeek=DayOfWeek.Sunday,1,0)
next
最晚日期 = 当前日期.adddays(n+交期天数)