↑↑↑点击上方图片，了解详情
正文：
判断一个年份是闰年还是平年。
闰年条件：
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
演示图
示例下载：
点击本文末尾左下角的
END
推荐阅读用Access分析数据免费精品微课连载课程，真实工厂案例，每节课几分钟，零基础也可以学会。【详情>>】Access课程集锦众多Access数据库课程，每一名学员，都可以找到适合自已学习的课程。【详情>>】Access软件作品十二位Access学员对自已开发的软件进行了介绍并分享开发心得，一起来了解Access开发的软件。【详情>>】Access VBA的作用从5个方面讲解了Access VBA的作用并举例说明，提供源码示例下载，可供借鉴。【详情>>】Access学习资源管理6分钟免费微课并分享源代码，开发了一个小软件来管理学习资源。【详情>>】张志，Access数据库培训讲师，『Access软件网』创始人，服务过的知名企业有北京奔驰、立达(中国)纺织仪器、宜家(中国)投资等。 ~连续获微软最有价值专家。【详情>>】
