VB.NET基础教程教你如何实现闰年简单方法

想必大家都知道闰年是怎么回事吧，就是四年一闰，百年不闰，四百年再闰。在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://www.hantingmc.com/qtweb/news14/381314.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联