告诉你两种判断闰年的简单方法

选项显式

私有子命令1_Click()

印刷2000

印刷岛屿年鉴A(2000年)

印刷岛屿和年鉴B(2000年)

印刷1999年

印刷IsLeapYearA(1999)

印刷岛屿和年鉴B(1999年)

印刷1998年

印刷岛屿年鉴A(1998年)

印刷岛屿发展中国家B(1998年)

印刷1997

印刷IsLeapYearA(1997)

印刷岛屿和年鉴B(1997年)

1996年印刷

印刷岛屿年鉴A(1996年)

印刷岛屿发展中国家B(1996年)

末端接头

函数IsLeapYearA(ByVal yr为整数)为布尔值

如果((yr Mod 4) = 0，则IsLeapYearA = ((yr Mod 100) > 0)或((yr Mod 400) = 0)

如果…就会结束

结束功能

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

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

结束功能