递归法：根据订单日期，交货周期，扣除非工作日计算交货日期

layaman_999

Function JHRQ(ByVal ddrq As Date, ByVal sczq As Long) As Date

'参数说明:ddrq订单日期，sczq生产周期
'函数功能：订单日期(不计周日六)+生产周期(不计周日六),计算出发货日期
'layaman_999
'容易误解的:
'1.周六\日确定的订单，顺延确定日期为周一(例如周六的订单，生产周期1天的话，应该是下周二交货）
'2.发货日期如遇上周六\日,，发货确定日期为周一(例如周五的订单，生产周期1天的话，应该是下周一交货）

Dim i As Long
Dim j As Long
Dim K As Integer

j = 0

For i = 1 To sczq
K = Weekday(ddrq + j)
Select Case K
   Case 1 '星期日
    j = j + 1
   Case 7 '星期六
    j = j + 2
End Select
  j = j + 1
Next i

JHRQ = ddrq + j

K = Weekday(JHRQ)
Select Case K
   Case 1 '星期日
    JHRQ = JHRQ + 1
   Case 7 '星期六
    JHRQ = JHRQ + 2
End Select

End Function
'这个是我写的一个，不知是否可行？