↑↑↑點擊上方圖片，了解詳情

正文：

---

判斷一個年份是閏年還是平年。

閏年條件：

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年獲微軟最有價值專家。【詳情>>】