Bu Ay Kaç Çekiyor Bilgisi

Bulunduğunuz ayın kaç çektiği bilgisini veren bir fonksiyondur.

[HTML]
Function BuAyinSonGunu()
If Month(Date) = 12 Then
Yil = Year(Date)+1
Ay = 1
Else
Yil = Year(Date)
Ay = Month(Date)+1
End If
BuAyinSonGunu = Day(CDate("1/" & Ay & "/" & Yil)-1)
End Function
[/HTML]

__________________
proxyer