Merhaba,

Modüle aşağıdaki kodları ekleyip kaydet.

Public Function HaftaSonuHesapla(IlkTarih As Date, SonTarih As Date) As Long



Dim HaftaSonu As Long, GSayim As Long



HaftaSonu = 0

For GSayim = 0 To DateDiff("d", IlkTarih, SonTarih)

    Select Case Weekday(DateAdd("d", GSayim, IlkTarih))

        Case 1, 7

            HaftaSonu = HaftaSonu + 1

    End Select

Next

HaftaSonuHesapla = HaftaSonu

End Function



Public Function IsGunuHesapla(IlkTarih As Date, SonTarih As Date) As Long



Dim IsGunu As Long, GSayim As Long



IsGunu = 0

For GSayim = 0 To DateDiff("d", IlkTarih, SonTarih)

    Select Case Weekday(DateAdd("d", GSayim, IlkTarih))

        Case 2, 3, 4, 5, 6

            IsGunu = IsGunu + 1

    End Select

Next

IsGunuHesapla = IsGunu

End Function

Sorguda yeni alana, iş günü toplamı için

IsGunuToplami: IsGunuHesapla(DateSerial(Year([Tarih]);Month([Tarih]);1);DateSerial(Year([Tarih]);Month([Tarih])+1;0))

Hafta Sonu toplamı için

HaftaSonuToplami: HaftaSonuHesapla(DateSerial(Year([Tarih]);Month([Tarih]);1);DateSerial(Year([Tarih]);Month([Tarih])+1;0))

Kodları ekle.

---

Mesajını yeni fark ettim @mehmetdemiral abi. Kusura bakma.