VBScript计算一个月有几多天

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 
?