VB6 获取某年某月天数函数

VB6 获取某年某月天数函数

 

'返回一个月的天数
Private Function DayCount(iYear As Integer, iMonth As Integer) As Integer
   
    Select Case iMonth
        Case 1, 3, 5, 7, 8, 10, 12
            DayCount = 31
        Case 4, 6, 9, 11
            DayCount = 30
        Case 2
            If IsDate(iYear & "-" & iMonth & "-" & "29") Then
                DayCount = 29
            Else
                DayCount = 28
            End If
    End Select
   
End Function