Trong khi đó có nhiều công ty lại tính cả ngày thứ Bảy vì thế cách làm như sau .
Để tính cả ngày thứ Bảy , bạn cần tạo một Macro
Function GetWorkDays(StartDate As Long, EndDate As Long) As Long
Dim d As Long, dCount As Long
For d = StartDate To EndDate
If WeekDay(d) > 1 Then
dCount = dCount + 1
End If
Next d
GetWorkDays = dCount
End Function