Ayın ilk ve son gününü bulan fonksiyonlar

Ayın ilk gününü bulmak meselesi önemli değil, ancak ayın son günü meselesi gerçekten diğerine göre daha sıkıntılıdır.
Bazı aylar 30 yada 31 gün iken şubat ayı bazı seneler 28 ve dört yılda bir defada 29 gün çekmektedir. Aşağıdaki fonksiyonlarla ayın ilk ve son gününü bulabilirsiniz.

Public Function songun(tarih As Date) As Date

tarih = DateAdd("M", 1, tarih)

songun = "01/" & DatePart("m", tarih) & "/" & DatePart("yyyy", tarih)

 songun = (songun) - 1

 Debug.Print songun

End Function



Public Function ilkgun(tarih As Date) As Date

 ilkgun = "01/" & DatePart("m", tarih) & "/" & DatePart("yyyy", tarih)

 Debug.Print ilkgun

End Function

hocam paylaşım için teşekkürler

Teşekkürler üstadım.

Hocam;
Emek ve paylaşım için teşekkürler.

saygılar...

hocam paylaşım için teşekkürler

Paylaşım için teşekkürler Ercan abi.