Soru Gün sayma

[hakanatalay]

excelde, girilen 2 tarih arasında ki günlerin kaç tanesi hangi aya denk geliyor saymam gerekiyor, nasıl yapabilirim?

 

[uzmanamele]

Merhaba

Deneyiniz

 

[alicimri]

Alternatif başlangıç tarihi A1de bitiş tarihi B1 de ise

Sub bul()
For i = Range("A1") To Range("B1")
gun = gun + 1
If InStr(ay, Format(i, "mmmm")) = 0 Then
ay = ay & "," & Format(i, "mmmm")
gunler = gunler & "," & gun
gun = 0
End If
Next
ay = Split(Mid(ay, 2), ",")
gunler = Split(Mid(gunler & "," & gun + 1, 4), ",")
For e = 0 To UBound(ay)
bak = bak & ay(e) & " " & gunler(e) & Chr(10)
Next
MsgBox bak
End Sub

 

[alicimri]

Yukarıdaki kodu revize ettim, bazı durumlarda hatalı sonuç veriyordu.