Soru Gün sayma

Katılım
23 Nisan 2011
Mesajlar
8
Excel Vers. ve Dili
2017
Altın Üyelik Bitiş Tarihi
05-02-2024
excelde, girilen 2 tarih arasında ki günlerin kaç tanesi hangi aya denk geliyor saymam gerekiyor, nasıl yapabilirim?
 
Katılım
12 Aralık 2015
Mesajlar
1,207
Excel Vers. ve Dili
Türkçe Ofis 2007
Alternatif başlangıç tarihi A1de bitiş tarihi B1 de ise
Kod:
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
 
Son düzenleme:
Katılım
12 Aralık 2015
Mesajlar
1,207
Excel Vers. ve Dili
Türkçe Ofis 2007
Yukarıdaki kodu revize ettim, bazı durumlarda hatalı sonuç veriyordu.
 
Üst