(03/09/2017, 03:09)ozanakkaya yazdı: 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.

Merhaba Ozan Bey,
Bu konuda birşey sormak isterim, verdiğiniz kodla ay içinde geçen günlerin toplamını yazdırabilir miyiz? Mesela Eylül ayı içinde Pazar : 4, Cumartesi: 5 gibi saydırmak için formülü nasıl yazabilirim?
Dosyanın güncel hali ektedir. Umarım diğer arkadaşlara da faydalı olur.

Yardımlarınız için teşekkür ederim.