Tarihte hafta sonunu saymama!!

[gokaytasci]

Merhaba Arkadaşlar..

Ekte verdiğim örnekte 01.04.2010 ile 30.04.2010 tarihleri arasında "GÖKAY" adlı kişi ile sorguladığımız formda,"talep tarihi" ile "yönetim onay geliş tarihi" arasındaki tarih hesaplamasında hafta sonunu saymasın istiyorum.
Normalde hesaplarken cumartesi ve pazarıda sayıyor.

Aynı işlem"Sipariş Tarihi" ile " Malzeme Geliş Tarihi" arasındada olmalı.

Buraya kadar geldim burada tıkandım Yardımlarınızı bekliyorum.Teşekkürler.

 

[Taruz]

Merhaba..

Bu fonksiyonu bir modüle yazınız..:

Function isgunu(ilktrh, sontrh)
 
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)
isgunu = hafta * 5 + Weekday(sontrh) - Weekday(ilktrh)
If isgunu < 0 Then isgunu = 0
End Function

Fonksiyonu bu şekilde kullanabilirsiniz.:

[COLOR=black]=isgunu([SİPARİŞ TARİHİ];[MALZEME GELİŞ TARİHİ])[/COLOR]

 

[gokaytasci]

Sn. Taruz;

Öncelikle göstermiş olduğunuz ilgiye teşekkür ederim.Yardımlarınız çok yararlı oldu.Teşekkür ederim.