判断一个年份是否为闰年

以下示例使用非API方法来确定年份是否是闰年。
闰年判断法:能被4或100或400整除的一年为闰年。

在窗体中放置一个CommandButton，然后放置以下代码

选项显式

私有子命令1_Click()

Print 2000，
Print IsLeapYearA(2000)，
Print IsLeapYearB(2000)

1999年印刷，1999年印刷

1998年印刷，1998年印刷

1997年印刷，
1997年印刷

1996年印刷，1996年印刷

末端接头

函数IsLeapYearA(ByVal yr As Integer)为Boolean
If((yr Mod 4)= 0)Then
IsLeapYearA =((yr Mod 100)> 0)Or((yr Mod 400)= 0)
End If
End函数

布尔型公共函数IsLeapYearB(ByVal yr As Integer)

IsLeapYearB = Day(DateSerial(yr，2，29)) = 29

结束功能