Trả về số ngày làm việc trong 1 khoảng thời gian

[lachinhan]

Trả về số ngày làm việc thực tế trong 1 khoảng thời gian ( hàm này ngày nghỉ là thứ 7 và CN nhé )

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, vbMonday) < 6 Then
dCount = dCount + 1
End If
Next d
GetWorkDays = dCount
End Function

Trả về số ngày làm việc thực tế trong 1 khoảng thời gian ( hàm này ngày nghỉ là CN nhé )

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, vbMonday) < 7 Then
dCount = dCount + 1
End If
Next d
GetWorkDays = dCount
End Function

 

[ndu96081631]

Trả về số ngày làm việc thực tế trong 1 khoảng thời gian ( hàm này ngày nghỉ là thứ 7 và CN nhé )

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, vbMonday) < 6 Then
dCount = dCount + 1
End If
Next d
GetWorkDays = dCount
End Function

Trả về số ngày làm việc thực tế trong 1 khoảng thời gian ( hàm này ngày nghỉ là CN nhé )

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, vbMonday) < 7 Then
dCount = dCount + 1
End If
Next d
GetWorkDays = dCount
End Function

Không đơn giản thế đâu! Vì thông thường, để tình ngày làm việc thực tế, không chỉ trừ thứ bảy hay CN mà còn phải tính đến những ngày lễ và những ngày nghỉ đột xuất ---> Nó được tập hợp trong 1 Range riêng biệt
Xem cái này:
http://www.giaiphapexcel.com/forum/showthread.php?24192-Tính-thời-gian-nghỉ-bù-khi-cho-các-ngày-lễ-trùng-vào-ngày-thứ-7-CN&p=166692#post166692
Nếu không cần tính đến những ngày lễ thì công thức thường cũng làm được, đâu cần đến code