işgünü hesaplama

[canavar64]

VBA ile işgünü hesaplama basit ama aradım bulamadım
Function isgunu(ilk, son)
Dim t As Date
Dim a, b
b = 0

For t = ilk To son Step 1
a = Weekday(t, vbMonday)

Select Case a
Case Is = 1 'PAZARTESİ
b = b + 1
Case Is = 2 'SALI
b = b + 1
Case Is = 3 'ÇARŞAMBA
b = b + 1
Case Is = 4 'perşembe
b = b + 1
Case Is = 5 'cuma
b = b + 1
Case Is = 6 'cumartesi
b = b
Case Is = 7 'pazar
b = b
End Select

Next
isgunu = b
End Function

 

[Necdet]

Merhaba,

Function isgunu(ilk As Date, Son As Date)
isgunu = Application.WorksheetFunction.NetworkDays(ilk, Son)
End Function

Aslında dini ve resmi Tatilleri de dikkate almak gerek.

 

[Ali]

Aşağıdaki linkide inceleyebilirsiniz.


Tarih & Zaman & Saat Fonksiyonları Uygulamaları

.

 

[canavar64]

Teşekkür ederim,