Question

vb给出月份判断是什么季节和该月有多少天怎么做啊

我这有以个题，它不但要从我给出的年分中判断出是不是闰年还要给出月份判断是什么季节和该月有多少天怎么做啊

Answer 1

这个方法返回月份的天数第一个参数是年，第二个参数是月Private Function CountDay(Year As Integer, Month As Integer) As Integer
Dim count As Integer
count = -1
If Month = 1 Or Month = 3 Or Month = 5 Or Month = 7 Or Month = 8 Or Month = 10 Or Month = 12 Then
count = 31
ElseIf Month = 4 Or Month = 6 Or Month = 9 Or Month = 11 Then
count = 30
Else
If Year Mod 4 = 0 And Year Mod 100 <> 0 Or Year Mod 400 = 0 Then
count = 29
Else
count = 28
End If
End If
CountDay = count
End Function 关于判断季节的就简单了 1-3月为春天 4-6月为夏天 7-9月为秋天 10-12为冬天写个if语句判断一下就好了