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

2016-02-19 14:23 9 1 收藏

下面图老师小编要向大家介绍下告诉你两种判断闰年的简单方法，看起来复杂实则是简单的，掌握好技巧就OK，喜欢就赶紧收藏起来吧！

【 tulaoshi.com - 编程语言】

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->

来源:http://www.tulaoshi.com/n/20160219/1606884.html

上一篇： VB技巧-工具栏使用技巧
下一篇： FileSystemObject读写文件

看过《告诉你两种判断闰年的简单方法》的人还看了以下文章更多>>

教你两种简单的拉筋法

很多上班族因为长期的久坐，一天工作下来就会出现腰酸背痛的情况，一身的疲惫感，那么如何缓解这样的症状呢?每天晨练的时候都会看到很多的老年人在公园拉筋，拉筋对人体有好处吗?拉筋会让你长寿吗?今天图老师教你2个简单的拉筋法，让你健健康康的。有一句俗话是这样说的"筋长一寸，寿延十年"，这也就是说当人筋骨好了，那么身体才会...

10种简单方法向BB传达你的爱

标签：育儿育儿知识妈妈儿歌取名婴儿喂养孕期怀孕分娩孕妇教育胎教亲子游戏幼儿宝宝早教

父母和小婴儿之间的沟通交流在刚开始想要孩子的时候，父母的幻想中就出现有关宝宝的画面。亲子关系这时候就开始产生了。所有的这些想象在开始怀孕时显现出来继而发展为对宝宝的期待。这些想象和期待与父母的状况有关而且会影响宝宝的发展。在感觉到宝宝活动那一刻开始，母亲就开始平衡想象和现实。通过这种...

定制Authorware闰年判断函数

标签： Authorware 设计软件平面设计软件广告设计软件

"春有百花夏有雨，秋有凉风冬有雪"，四季更替谓之"年"，在这"年"的概念里隐藏着一个"四年一闰"的说法，也就是所谓的"闰年"。现在世界通行的公历，平年365天，闰年366天，每四年一闰，每满百年少闰一次，到第四百年再闰，即每四百年中有97个闰年。闰年的判断算法虽然简单，却是...

眼睛变大的两种常用方法

标签： PS相片处理 PS基础 PS PS效果

眼睛变大是人物图片美化中经常用到的。方法有很多，下面介绍两种最基础的方法。一种是用变形工具强行拉大；一种是用液化滤镜中的膨胀工具变大。两种方法都比较快。最终效果一、变换比列放大法 1、我们打开图片，选中椭圆选框工具，选中脸部分。执行选择-修改-羽化-5px（Shift+F6）。 2、Ctrl+J复制出眼睛部...

页面延迟的两个简单方法

标签： ASP

一、 <% Response.Buffer = True % <% ' Setup the variables necessary to accomplish the task Dim TimerStart, TimerEnd, TimerNow, TimerWait ' How many seconds do you want them to wait... TimerWait = 5 ' Setup and start the timers TimerNow = Timer TimerStart = TimerNow TimerEnd = TimerStart + TimerWait ' Ke...

查看更多精彩>>