国产探花免费观看_亚洲丰满少妇自慰呻吟_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->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 北宁市| 黔西县| 鹤庆县| 保定市| 三门峡市| 拜城县| 吕梁市| 唐海县| 平江县| 东乌珠穆沁旗| 大英县| 岫岩| 精河县| 扶余县| 朝阳县| 宽城| 花莲县| 惠安县| 滨州市| 灌阳县| 贡嘎县| 延长县| 开封县| 玉龙| 鄂尔多斯市| 定远县| 揭西县| 柞水县| 彰化市| 邮箱| 饶阳县| 疏勒县| 聂荣县| 紫金县| 莒南县| 灌阳县| 麟游县| 汤原县| 田东县| 南昌市| 柳州市|