iki tarih arası ay indislerini elde etme

[merakli_72]

mrb,
mesela
baslangıc tarihi:01.11.2009
bitis tarihi:18.09.2010
ise
iki tarih arasındaki ay indislerini (11,12,1,2,3,4,5,6,7,8,9) nasıl elde edebilirim
(baslangıc ve bitis tarihleri değişiyor)
Teşekkürler

 

[Orion1]

Dim ilktarih As Date, sontarih, h As Date, ayindisi As String, tarih As Date
ilktarih = DateValue("01.11.2009")
ilktarih = DateSerial(Year(ilktarih), Month(ilktarih), 1)
sontarih = DateValue("18.09.2010")
sontarih = DateSerial(Year(sontarih), Month(sontarih), 1)
tarih = ilktarih
Do While tarih <= sontarih
    ayindisi = ayindisi & vbLf & Month(tarih)
    tarih = DateAdd("m", 1, tarih)
Loop
MsgBox ayindisi

 

[merakli_72]

Çok teşekkür ederim evren bey

 

[Orion1]

Çok teşekkür ederim evren bey

Rica ederim.