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
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