DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function Gunhesapla(ilktarih As Date, sontarih As Date, Gunkodu As Byte) As Integer
Dim Gunler As Date
Dim Count As Integer
Application.Volatile
For Gunler = ilktarih To sontarih
If WorksheetFunction.Weekday(Gunler, 2) = Gunkodu Then
Count = Count + 1
End If
Next
Gunhesapla = Count
End Function