快捷搜索:  汽车  科技

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

演示图:

access日期的表示方法(判断闰年还是平年)(1)

access日期的表示方法(判断闰年还是平年)(2)

示例下载:

在【了解更多】里下载。

猜您喜欢: