arkadaşlar web tabanlı personel izin programı yapıyorum.Tek tıkandığım konu belli tarih aralarında izin alındığında haftasonlarını saymadan izin vermesi yardımcı olurmusunuz acil???

sn ylm04;
sizin konu; web ile uğraşılan sitelere konu açmanız daha doğrudur.. kanımca

Sayın ylmz04
ben bu durumu modül ile çözdüm aşağıda kodları veriyorum.

Function isgunu1(ilktrh As Date, sontrh As Date) As Integer

Dim hafta As Integer
Const pazar = 1
Const ctesi = 7

Select Case Weekday(ilktrh)
Case pazar
ilktrh = ilktrh + 1
Case ctesi
ilktrh = ilktrh + 1
End Select

Select Case Weekday(sontrh)
Case pazar
sontrh = sontrh - 2
Case ctesi
sontrh = sontrh - 1
End Select

hafta = DateDiff("ww", ilktrh, sontrh)
isgunu1 = hafta * 5 + Weekday(sontrh) - Weekday(ilktrh) + 1
If isgunu1 < 0 Then isgunu1 = 0

son:

End Function