国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

告訴你兩種判斷閏年的簡單方法

2019-11-18 17:40:16
字體：大 中 小
來源：轉載
供稿：網友
OptionExplicit

PRivateSubCommand1_Click()
Print2000
PrintIsLeapYearA(2000)
PrintIsLeapYearB(2000)
Print1999
PrintIsLeapYearA(1999)
PrintIsLeapYearB(1999)
Print1998
PrintIsLeapYearA(1998)
PrintIsLeapYearB(1998)
Print1997
PrintIsLeapYearA(1997)
PrintIsLeapYearB(1997)
Print1996
PrintIsLeapYearA(1996)
PrintIsLeapYearB(1996)
EndSub

FunctionIsLeapYearA(ByValyrAsInteger)AsBoolean
If((yrMod4)=0)ThenIsLeapYearA=((yrMod100)＞0)Or((yrMod400)=0)
EndIf
EndFunction

PublicFunctionIsLeapYearB(ByValyrAsInteger)AsBoolean
IsLeapYearB=Day(DateSerial(yr,2,29))=29
EndFunction->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 大田县| 华蓥市| 色达县| 榆社县| 永寿县| 洱源县| 九龙城区| 邵阳县| 高雄市| 龙川县| 正镶白旗| 霍林郭勒市| 武清区| 广饶县| 天长市| 南阳市| 衡阳县| 镇平县| 曲周县| 奉贤区| 吴江市| 互助| 贵阳市| 泸溪县| 榆树市| 天台县| 新竹县| 高平市| 荆门市| 六盘水市| 陆川县| 舟曲县| 西藏| 青冈县| 岱山县| 芦山县| 台南县| 潜山县| 吴忠市| 罗源县| 化州市|