Friday, July 3, 2009

VBScript / ASP Function Days-In-Month


Function DaysInMonth(dateval)
Dim nxt
Dim tmp : tmp = DateAdd("d", -(Day(dateval)-1), dateval) ' get first day of month
nxt = DateAdd("m", 1, tmp) ' get first day of next month
DaysInMonth = Day(DateAdd("d", -1, nxt))
End Function

No comments:

Post a Comment