VBScript计算一个月有多少天Function DaysOfMonth(aYear,aMonth)For i 31 To 28 step -1IfIsDate(CStr(a
VBScript计算一个月有多少天
Function DaysOfMonth(aYear,aMonth) For i = 31 To 28 step -1 If IsDate(CStr(aYear)&"- "&CStr(aMonth)&"- "&i) Then DaysOfMonth = i Exit Function End If Next End Function
