查找一个月中的工作日excel VBA

Question

我有一张包含开始日期和结束日期的表格。我想找出两个日期之间有多少个星期一、星期二、星期三、星期四、星期五、星期六和星期日。所以我写了以下函数。它工作正常，但每月的第一天正在跳过。

=ABS(INT((N($B$5)-L10)/7)-INT((N($B$4)-L10)/7))      'B4- Starting date and B5- Ending date

例如： 2021 年 1 月 10 日和 201 年 10 月 31 日开始和结束日期。

根据上述功能，周一至 4、周二至 4、周三至 4、周四至 4、周五至 4、周六至 5 和周日 5

但最初是 Mon-4、Tue-4、Wed-4。 Thu-4、Fri-5、Sat-5、Sun-5。

这里发生的事情是 2021 年 10 月 1 日是星期五。它会跳过一个月的第一天。

任何帮助......提前tqs......

Answer 1

您可以使用我所说的“蛮力”方法，创建一个包含所有相关日期的数组，然后检查匹配项：

=SUMPRODUCT(N(WEEKDAY(ROW(INDEX($A:$A,$B$4):INDEX($A:$A,$B$5)))=L10))

既然您要求 VBA 解决方案，这里有一种方法：

Mnth 可以是一个月中的任何日期
DOW 是一周中的哪一天，1=Sunday
该函数使用相同的算法 -- 测试范围内的每个日期以查看它是否与所需的星期几匹配。

Option Explicit
Function weekdaysInMonth(Mnth As Date, Optional DOW As Long = vbSunday) As Long
    Dim I As Long
    Dim dStart As Date, dEnd As Date
    Dim Cnt As Long
    
dStart = DateSerial(Year(Mnth), Month(Mnth), 1)
dEnd = DateSerial(Year(Mnth), Month(Mnth) + 1, 0)

For I = dStart To dEnd
    If Weekday(I) = DOW Then Cnt = Cnt + 1
Next I
weekdaysInMonth = Cnt

End Function