access日期的表示方法（判断闰年还是平年）

access日期的表示方法（判断闰年还是平年）Else MsgBox Me.年份 & "为闰年！"代 码：Private Sub 查询_Click() If Me.年份 Mod 4 = 0 And Me.年份 Mod 100 <> 0 or Me.年份 Mod 400 = 0 Then

做一个判断是否是闰年的示例，用到了掩码、有效性规则、if及msgbox语句。

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

闰年条件：

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

演示图：

示例下载：

在【了解更多】里下载。