Skip to main content

AccessTr.neT


iki tarih arası işgünü sayısını bulma

iki tarih arası işgünü sayısını bulma

Çözüldü #1
arkadaşlar hepinize kolay gelsin...
ekteki örnekte işgünü sayısını hesaplatmam gerekiyor.
bununla ilgili bir function veya kod yazılabilir mi ?
yardımlarınız için teşekkürler...
.rar tarihler.rar (Dosya Boyutu: 8,39 KB | İndirme Sayısı: 23)
 İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)



accessapplication
Cevapla
Çözüldü #2
Tabii ki yazılabilir.
Remsi bayramları (1 Ocak, 23 Nisan, 19 Mayıs, 30 Ağustos, 29 Ekim) sabit bir günde olduğu için bulmak kolay ancak dini tatiller'de sıkıntı var.
Dini bayram günleri sabit olmadığı ve Access bunları bilemeyeceği için bu günleri ayrı bir tabloya girmeniz gerekir.
Ayrıca verdiğiniz tarihler arası birden fazla tatil olduğu zaman tatil başlangıç ve bitişi ne olacak ?
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #3
Arkadaşlar bu konuda herhangi bir öneriniz yok galiba bunlar accessin yapamayacağı şeyler...
 İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)



accessapplication
Cevapla
Çözüldü #4
sn onurcan, soru sordunuz.

sn seruz tam olarak ne istediğinizi anlayabilmek için size cevap yazdı.

sizin cevabınız

Alıntı:Arkadaşlar bu konuda herhangi bir öneriniz yok galiba bunlar accessin yapamayacağı şeyler...

Öneride bulunabilmemiz için önce soruyu anlamamız gerekiyor, seruz anlayamadıysa kimse anlayamamıştır.
Cevapla
Çözüldü #5
ilk kutuya başlangıç tarihi 2.kutuya bitiş tarihi girilecek bu iki tarih arasında cumartesi pazarı çıkartıp geriye kalan iş günlerini sayısal değer olarak verecek...
bu kadar
 İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)



accessapplication
Cevapla
Çözüldü #6
Evet doğru yazmışsınız. Ancak bu kadar ... olur.

Alıntı:ilk tarih ile son tarih arasında varsa resmi tatil günlerini ardışık ise tatilin ilk ve son tarihi değilse sadece ilk tarihi girerek hesaplama yaptıracağız. Tatil yoksa alttaki iki kutuya bilgi girmeyeceğiz...

Alıntı:ilk kutuya başlangıç tarihi 2.kutuya bitiş tarihi girilecek bu iki tarih arasında cumartesi pazarı çıkartıp geriye kalan iş günlerini sayısal değer olarak verecek...
bu kadar

Kod:
Private Sub Is_Gunu_Sayisini_Hesapla()
Dim Islem_Tarihi As Date
    Me.IsGunuSayisi = 0
    If (IsNull(Me.ilktarih) Or IsNull(Me.sontarih)) Or Me.ilktarih > Me.sontarih Then Exit Sub
    
    Islem_Tarihi = Me.ilktarih
    While Islem_Tarihi <= Me.sontarih
        If Weekday(Islem_Tarihi) <> 1 And Weekday(Islem_Tarihi) <> 7 Then '1=Pazar, 7=Cumartesi
            Me.IsGunuSayisi = Me.IsGunuSayisi + 1
        End If
        Islem_Tarihi = DateAdd("d", 1, Islem_Tarihi)
    Wend

End Sub

.rar Tarihler_Seruz.rar (Dosya Boyutu: 11,64 KB | İndirme Sayısı: 103)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da