【Access示例】判断闰年还是平年-杨雪
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


【Access示例】判断闰年还是平年

发表时间:2020/9/21 8:01:25 评论(0) 浏览(5540)  评论 | 加入收藏 | 复制
   
摘 要:做一个判断是否是闰年的示例,用到了掩码、有效性规则、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

Access软件网交流QQ群(群号:198465573)
 
 相关文章
【Excel小品】Excel判断是否为闰年公式|用Excel测算平...  【麥田  2013/12/26】
【Access自定义函数】判断闰年平年的示例,获取年份是否闰年的方...  【麥田  2013/12/28】
【Access闰年示例】判断闰年平年的示例,获取年份是否闰年的方法...  【麥田  2013/12/30】
常规日期转换成传统农历年份  【仙来  2015/12/29】
万年历(公历、农历双日历)  【网行者  2016/11/30】
【Access年度统计示例】按年度合计,用年度统计子窗体数据记录,...  【麥田  2018/5/22】
根据年份和月份求本月的天数  【刘生  2018/7/2】
常见问答
技术分类
相关资源
文章搜索
关于作者

杨雪

文章分类

文章存档

友情链接