↑↑↑点击上方图片，了解详情

正文：

---

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

闰年条件：

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软件网』创始人，服务过的知名企业有北京奔驰、立达(中国)纺织仪器、宜家(中国)投资等。 2003~2013年连续10年获微软最有价值专家。【详情>>】