[导入]ASP常用函数:LastDay()

<%
'功能:求出每月最后一天的日期(判断一个月有几天)
'来源:http://jorkin.reallydo.com/article.asp?id=463

Function LastDay(dMonth)
    If IsDate(dMonth) Then
        dMonth = CDate(dMonth)
    Else
        dMonth = Date()
    End If
    LastDay = Day(DateSerial(Year(dMonth), Month(dMonth) + 1, 0))
End Function
%>

文章来源: http://Jorkin.Reallydo.Com/default.asp?id=463