İş Günü Hesabı ? - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: İş Günü Hesabı ? (/konu-is-gunu-hesabi.html) |
İş Günü Hesabı ? - prtkl - 30/10/2012 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. Cvp: İş Günü Hesabı ? - POWER - 30/10/2012 İ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... Cvp: İş Günü Hesabı ? - prtkl - 01/11/2012 Ç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. Cvp: İş Günü Hesabı ? - POWER - 01/11/2012 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... Cvp: İş Günü Hesabı ? - prtkl - 01/11/2012 çok teşekkür ederim.... |