Yazılım Geliştirme Uzmanı & E-Ticaret Danışmanı
Classic Asp , Excel , Ms Project, Excel VBA , E-Ticaret , Mobil , Desktop
Tel : 0 534 797 31 21 , Mail : baranseren@gmail.com

Kategoriler

Sitelerim

Önerdiklerim

Ayın Son Günü Nasıl Bulunur

Ayın Son Günü Nasıl Bulunur 4.8.2011 09:42:25

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


Yazının Devamı

Tags :