判斷一個年份是閏年還是平年。
閏年條件:
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
演示圖:
示例下載:
在【了解更多】裡下載。
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!