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

告诉你两种判断闰年的简单方法,第1张

告诉你两种判断闰年的简单方法,第2张

选项显式

私有子命令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

结束功能

位律师回复
DABAN RP主题是一个优秀的主题,极致后台体验,无插件,集成会员系统
白度搜_经验知识百科全书 » 告诉你两种判断闰年的简单方法

0条评论

发表评论

提供最优质的资源集合

立即查看 了解详情