工作日自定义函数（考虑调休）

cimine

zopey 发表于 2018-4-8 21:47
基本思路就是 从开始日起 逐天判断是第几个工作日，直到符合条件则退出do循环。

周六和周日的话怎么就加2呢？工作日加3这个明白

zopey

cimine 发表于 2018-4-9 07:56
周六和周日的话怎么就加2呢？工作日加3这个明白

从你给的模拟结果猜的，记不太清了。参考2点：
1、起始日（非工作日）+0 等于顺延 第1个工作日 ，+1等于 第2个工作日，+2 等于 第3个工作日；
1、起始日（工作日）+0 等于 起始日，+3 等于起始日后（不包含起始日）的 第3个工作日。

zopey

cimine 发表于 2018-4-9 07:56
周六和周日的话怎么就加2呢？工作日加3这个明白

从你给的模拟结果猜的，记不太清了。参考2点：
1、起始日（非工作日）+0 等于顺延 第1个工作日 ，+1等于 第2个工作日，+2 等于 第3个工作日；
1、起始日（工作日）+0 等于 起始日，+3 等于起始日后（不包含起始日）的 第3个工作日。

cimine

不知道这样的注释对不对，第一次为了这个代码正儿八经的接触VB，
Public Function chinawork2(startday As Long, wdNum As Integer, Holidays As Range)

Set xD1 = CreateObject("Scripting.Dictionary")

Arr = Holidays
For i = 2 To UBound(Arr)
   If Weekday(Arr(i, 1)) = 1 Or Weekday(Arr(i, 1)) = 7 Then
      xD1(Arr(i, 1)) = 1
   Else
      xD1(Arr(i, 1)) = 0
   End If
Next i

       endday = startday
haha:
'判断是否为周日、周六，1表示为周日、7表示为周六
       If Weekday(endday) = 1 Or Weekday(endday) = 7 Then
       '如果endday 不在holidays 里面 则 endday=dateadd("d", 1, endday)
          If Not xD1.Exists(endday) Then endday = DateAdd("d", 1, endday): GoTo haha
       Else
          If xD1.Exists(endday) Then endday = DateAdd("d", 1, endday): GoTo haha
       End If

       'If wdNum = 0 Then chinawork2 = Format(endday, "yyyy-mm-dd"): Exit Function
        If wdNum = 0 Then chinawork2 = endday: Exit Function

        m = -1
        '当 m < abs(wdNum),则
        Do While m < Abs(wdNum)
        '如果endday 不在holidays 里面 则
            If Not xD1.Exists(endday) Then
            '如果endday 是周一到周五 则
               If Weekday(endday) > 1 And Weekday(endday) < 7 Then
                   m = m + 1
               End If
            Else
               m = m + xD1(endday)
            End If
            endday = DateAdd("d", Abs(wdNum) / wdNum, endday)
        Loop
        endday = DateAdd("d", -Abs(wdNum) / wdNum, endday)
        chinawork2 = Format(endday, "yyyy-mm-dd")
        'chinawork2 = endday

Set xD1 = Nothing
End Function

cimine

zopey 发表于 2018-4-9 08:27
从你给的模拟结果猜的，记不太清了。参考2点：
1、起始日（非工作日）+0 等于顺延 第1个工作日 ，+1等于 ...

周日到周六的顺序是按照1、2、3、4、5、6、7这样的加上去的吧

cimine

我想请教一下，我周日的话+2的话就是两个工作日，周六+2的话也就一个工作日而已，怎么就周六周日就全部统一+2了呢

zopey

cimine 发表于 2018-4-9 20:45
我想请教一下，我周日的话+2的话就是两个工作日，周六+2的话也就一个工作日而已，怎么就周六周日就全部统一 ...

只考虑普通情况：

周六、周日 +0 到周一
                +1 到周二
                +2 到周三

    周一      +0 等于周一
                +1 到周二
                +2 到周三
                +3 到周四

sevra

zopey 发表于 2018-4-9 21:43
只考虑普通情况：

周六、周日 +0 到周一

感谢高人的无偿分享，请高人指点一下，用这个公式算出来的日期不能作为基础日期再算下一个日期了吗？

zopey

sevra 发表于 2018-4-13 11:21
感谢高人的无偿分享，请高人指点一下，用这个公式算出来的日期不能作为基础日期再算下一个日期了吗？

再次调用时，数据类型不一致显示“#value”，需要最后一句
函数返回值   chinawork2 = Format(endday, "yyyy-mm-dd")      
修改为          chinawork2 = endday


含调休工作日(测试3）.zip (18.08 KB, 下载次数: 94)

2018-4-13 14:24 上传

点击文件名下载附件

ZhouFfett

这没有实用价值，主要是涉及调休什么的：
   在将来哪天会调休，不是由你的“自定义函数”决定，而是看有关政策