VB.NET实现闰年的简单方法是什么
VB.NET实现闰年的简单方法是什么,很多新手对此不是很清楚,为了帮助大家解决这个难题,下面小编将为大家详细讲解,有这方面需求的人可以来学习下,希望你能有所收获。
创新互联-专业网站定制、快速模板网站建设、高性价比平泉网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式平泉网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖平泉地区。费用合理售后完善,十多年实体公司更值得信赖。
想必大家都知道闰年是怎么回事吧,就是四年一闰,百年不闰,四百年再闰。在VB.NET中如何实现这个问题,下面我们就来看看吧。
西方公历的“闰年”
阳历中有闰日的年份叫闰年,相反就是平年,平年为365天,闰年为366天。在公历(格里历)纪年中,平年的二月为28天,闰年的二月为29天。闰年平月2月29日为闰日。
增加闰日的原因
现时的公历以回归年为“年”的计算基础,而一个回归年大约等于365.24220日。因为在平年公历只计算365日,结果四年后便会累积0.24220×4=0.9688日,大约等于一日,所以便逢四年增加一日闰日以抵销这0.9688日。
计算闰年的方法
公历纪年法中,能被4整除的大多是闰年,不能被100整除而能被400整除的年份是闰年,能被3200整除的也不是闰年,如1900年是平年,2000年是闰年,3200年不是闰年。
中国农历的“闰年”
中国旧历农历纪年中,有闰月的一年称为闰年。一般年份为12个月,354或355天,闰年则为13个月,383或384天
编程中公历闰年的简单计算方法:
设年份year
(year能被4整除 并且 不能被100整除) 或者year能被400整除 则该年为闰年
否则该年为平年
vb.net闰年的判断方法(vb.Net已经加入了Date.IsLeapYear方法进行判断,无须那么复杂了)
VB.NET基础教程效果图:
VB.NET基础教程实例代码如下:
Private Sub CheckLeapYear(ByVal Int_Year As Integer) Dim Boo_LeapYear As Boolean Boo_LeapYear = Date.IsLeapYear(Int_Year) If Boo_LeapYear Then MessageBox.Show(Int_Year & "年是闰年!", "乐博网提示") Else MessageBox.Show(Int_Year & "年不是闰年!", "乐博网提示") End If End Sub
VB.NET基础教程调用方式:
CheckLeapYear(Now.Year) CheckLeapYear(2000)
看完上述内容是否对您有帮助呢?如果还想对相关知识有进一步的了解或阅读更多相关文章,请关注创新互联行业资讯频道,感谢您对创新互联的支持。
新闻标题:VB.NET实现闰年的简单方法是什么
本文网址:http://pwwzsj.com/article/jpghhe.html