vb.de ayın son günü nasıl bulunur

[berdal]

Excelde bir 01.02.2001 tarihindeki ayın kaç gün çektiğini yani son gününü seriay fonksiyonuyla bulabiliyorum. ancak 01.02.2001 tarihindeki ayın kaç gün çektiğini vb.de kod olarak nasıl bulabilirim. Yardımlarınız için şimdiden teşekkür ederim.
İyi çalışmalar.

 

[alpi]

Sub SonGün()
Dim i As Date
i = "01/03/2006" 'Son gününü bulmak istediğiniz aydan bir sonraki ayın 1. gününü alıyoruz
MsgBox i - 1 'Aldığımız tarihten 1 çıkararak bir önceki ayın son gününü öğreniyoruz.
End Sub

 

[berdal]

Sub SonGün()
Dim i As Date
i = "01/03/2006" 'Son gününü bulmak istediğiniz aydan bir sonraki ayın 1. gününü alıyoruz
MsgBox i - 1 'Aldığımız tarihten 1 çıkararak bir önceki ayın son gününü öğreniyoruz.
End Sub

ama ben o tarihi örnek olarak verdim herhangibir tarih olabilir. Bende o verilen tarihin ayının son gününü bulmak istiyorum. bunu excelde seriay ile yapabiliyorum vb. kodlarında bunun karşılığı vardır ama bulamadım. Zaman ayırdığın için çok teşekkür ederim.

 

[alpi]

Aşağıdaki kodu deneyin

Sub SonGün()
    Dim i As Date
    Dim x As Date
    i = "15/03/2006" 'Örnek Tarih 3. ayın kaç çektiğini bulacağız
    x = DateAdd("m", 1, i - (Day(i) - 1))-1
    MsgBox x 
End Sub

 

[berdal]

Alpi arhkadaşım çok teşekkür ederim sabahtan beri programa devam edemiyordum. Başarılı çalışmalarının devamını diliyorum.

 

[berdal]

Alpi arkadaşım çok teşekkür ederim..Sabahtan beri programa devam edemiyordum Başarılı çalışmalarının devamını dilerim.

 

[alpi]

Teşekkür ederim bende faydalı olduğum için mutlu oldum