Yazılım Geliştirme Uzmanı & İnşaat Mühendisi
Logo Go/Tiger, Iphone, Desktop, Web, VBA Uygulamaları
Tel : 0 534 797 31 21 , Mail : baranseren@gmail.com
Ayın Son Günü Nasıl Bulunur

Ayın Son Günü Nasıl Bulunur 8/4/2011 9:42:25 AM

Public Function AyinSonGunu(ByVal GecerliTarih As Date) As Byte
    Dim SonGun As Byte
    SonGun = DatePart("d", DateAdd("d", -1, DateAdd("m", 1, _
    DateAdd("d", -DatePart("d", GecerliTarih) + 1, Date))))
    AyinSonGunu = SonGun
End Function

Private Sub Command1_Click()
    MsgBox Date & " tarihine ait ayin son günü : " & AyinSonGunu(Date)
End Sub



Tags :