AccessTr.neT

Tam Versiyon: Ayın ilk ve son gününü bulan fonksiyonlar
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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 +rep
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.
Sayfalar: 1 2