文章介紹通過excel的VBA代碼判斷閏年的方法。
我們在以前的文章介紹了使用excel內(nèi)置的函數(shù)編寫公式來判斷年份屬于閏年還是平年,本文再介紹使用excel的VBA代碼來判斷閏年的方法。
在excel中,按下ALT+F11鍵,打開VBE編輯器,插入——模塊,復(fù)制下面的VBA代碼,然后單擊“運行”命令運行即可實現(xiàn)VBA判斷閏年。
Sub 判斷閏年()
Dim Tmp
On Error GoTo skip
Tmp = CDate(InputBox("請輸入一個年份", "年份", Year(Now)) & "-2-29")
MsgBox "是閏年!"
Exit Sub
skip:
MsgBox "不是閏年!"
End Sub