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
