iki tarih arasındaki pazartesileri bulma

[6246386]

merhaba
bana iki tarih arasındaki belirli günlerin sayısı lazım. mesela 01/09/2009 ile 11/12/2009 tarihleri arasındaki pazartesilerin sayısı gibi.
teşekkürler.

 

[Orion1]

Size bir ktf yaptım.
Kullanımı ,B1 ilk tarih,B2 son tarih,D1 dede gün var (Pazartesi).Dosya ektedir.
=gun_bul(B1;B2;D1)

Function gun_bul(ilk As Range, son As Range, gun As Range) As Long
Dim gunler(), i As Byte, z As Date, say As Long, t As Byte, sayi As Byte
gunler = Array("", "Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi", "Pazar")
For t = 1 To 7
    If gun = gunler(t) Then
        sayi = t
        Exit For
    End If
Next
For z = ilk To son
    If Weekday(z, 2) = sayi Then say = say + 1
Next z
gun_bul = say
End Function

 

[Orion1]

Yanlış dosya yollamışım şimdi düzelttim.

 

[Orion1]

Bir hata yapmışım şimdi düzelttim.2ci mesajdan dosyayı indirebilirsiniz.

 

[İdris SERDAR]

merhaba
bana iki tarih arasındaki belirli günlerin sayısı lazım. mesela 01/09/2009 ile 11/12/2009 tarihleri arasındaki pazartesilerin sayısı gibi.
teşekkürler.

Bu da fonksiyonlarla...


.

 

[Ali]

merhaba
bana iki tarih arasındaki belirli günlerin sayısı lazım. mesela 01/09/2009 ile 11/12/2009 tarihleri arasındaki pazartesilerin sayısı gibi.
teşekkürler.

Zaten aşağıdaki linkte bunun cevabı var.

Tarih & Zaman & Saat Fonksiyonları Uygulamaları

.

 

[6246386]

İlginiz için çook teşekkürler. Çok yardımcı oldunuz.