This is the free version of MyNetWorkDays as shown in my Work Days TechHelp video:
Public Function MyNetWorkDays(StartDate As Date, EndDate As Date) As Long Dim D As Date MyNetWorkDays = 0 D = StartDate While D <= EndDate If Weekday(D) > 1 And Weekday(D) < 7 Then MyNetWorkDays = MyNetWorkDays + 1 D = D + 1 Wend End Function
Public Function MyNetWorkDays(StartDate As Date, EndDate As Date) As Long
Dim D As Date
MyNetWorkDays = 0 D = StartDate While D <= EndDate If Weekday(D) > 1 And Weekday(D) < 7 Then MyNetWorkDays = MyNetWorkDays + 1 D = D + 1 Wend
End Function
Usage:
DaysWorked = myNetWorkDays(#1/1/2020#,#1/31/2020#)
Video Reference: