急救 急 急 急 急

来源：百度知道 编辑：UC知道 时间：2024/07/08 07:04:03
给定年号与月份，判断该年是否是闰年，并根据给出的月份来判断是什么季节和该月有多少天？
这道题目用VB怎么编程！！！ 急救啊

Function IsLeapYearA(ByVal yr As Integer) As Boolean
If ((yr Mod 4) = 0) Then IsLeapYearA = ((yr Mod 100) ＞ 0) Or ((yr Mod 400) = 0)
End If
End Function
判断闰年调用即可~
或者直接判断 该年2月的天数~

至于该月天数 可以用 dateadd 函数加一个月 再减去1天 取号数就知道几天了
春夏秋冬用
Select Case 月份
Case 3, 4, 5
print "春季"
Case 6, 7, 8
print "夏季"
Case 9, 10, 11
print "秋季"
Case 12, 1, 2
print "冬季"
End Select