20/12/2012, 17:59
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.
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
