AccessTr.neT

Tam Versiyon: İş Günü Hesabı ?
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhabalar, Geçmiş bayramlarınız kutlu olsun.

Ekteki Formda 2 adet tarih textboxu var. Bu iki tarih arasındaki farkı hesaplayan bir de ayrı textbox var. 2. tarihin "güncelleştirme sonrası" olayına eğer iki tarih arasındaki fark 5 den büyükse "5 iş günü aşılmış" uyarısı veren bir kod ekledim. Ancak kodun bir eksiği var.

Cumartesi ve pazarı iş günü olarak kabul etmemeli.

Kodu düzeltmenizi ya da farklı bir çözüm için yardımcı olmanızı rica ediyorum.

İyi çalışmalar.
İncelermisiniz....

Mantık şudur....

2 tarih giriyorsunuz.
Girdiğiniz 2.tarihten birer gün azalarak 1.tarihe varmaya çalışıyorsunuz.
Bu arada önümüze çıkan tarihin "Cumartesi" veya "Pazar" olup olmadığına bakıyorsunuz.
Eğer C.tesi veya Pazar değilse işgünü sayacınızı 1 arttırıyorsunuz.
Detay için kodlara bakınız...

Lütfen olumlu veya olumsuz geri dönüş yapınız...
Çok teşekkür ederim ilgilendiğiniz için.

1.tarih-YB = 18.10.2012
2.tarih-T = 25.10.2012

tarihlerini forma girdiğimizde kodun bize uyarı vermesi gerekiyor. Çünkü

18.10- Perşembe - 1.gün
19.10- Cuma - 2.gün
20.10- Cumartesi
21.10- Pazar
22.10-Pazartesi-3.gün
23.10-Salı-4.gün
24.10-Çarşamba-5.gün
25.10-Perşembe-6.gün (5 iş günü aşıldı)

Kodlarınıza bakıp çözüm üretmeye çalıştım ancak "Weekday" kodunun mantığını anlayamadığım için tekrar yardıma ihtiyacım var.
Başlangıç günü hesaba dahil edilmemişti...Hesaba dahil edilmesi için,

If D = Me.YB Then GoTo 130 olan satırı

If D < Me.YB Then GoTo 130 olarak değiştiriniz...
çok teşekkür ederim....