用Excel,vba编程,键盘接收一个年份值,判断它是闰年还是平年怎么做?

如题所述

Sub aa()
a = Sheet1.Cells(1, 1)
If a Mod 4 = 0 Then
Sheet1.Cells(1, 2) = 366
Else
Sheet1.Cells(1, 2) = 365
End If
End Sub

整除4是否为零来判断闰年还是平年。

温馨提示:答案为网友推荐,仅供参考
相似回答