用access判断闰年平年（判断闰年还是平年）

判断一个年份是闰年还是平年。

闰年条件：

1.可以被400整除；

2.可以被4整除，但是不可以被100整除。

代 码：

Private Sub 查询_Click()

If Me.年份 Mod 4 = 0 And Me.年份 Mod 100 <> 0 or Me.年份 Mod 400 = 0 Then

MsgBox Me.年份 & "为闰年！"

Else

MsgBox Me.年份 & "为平年！"

End If

End Sub

演示图：

示例下载：

在【了解更多】里下载。