用access判断闰年平年(判断闰年还是平年)
做一个判断是否是闰年的示例,用到了掩码、有效性规则、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
演示图:
示例下载:
在【了解更多】里下载。
,免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com