文章为本站乐博网( Lob.cn )成员小幺原创,可以自由转载和传播,转载请保留本站的作者和信息来源,谢谢!如果大家对.Net编程开发或者关于“VB.Net闰年的判断方法”的话题感兴趣,就一起来www.SmallBasic.cn（乐博网旗下技术社区） 或者加入.Net超级QQ群 40797788  一起讨论，把他做得更完善吧！

闰年的简要介绍   

四年一闰，百年不闰，四百年再闰。

西方公历的“闰年”  
阳历中有闰日的年份叫闰年，相反就是平年，平年为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方法进行判断，无须那么复杂了）

效果图：

实例代码如下：

      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

调用方式：

        CheckLeapYear(Now.Year)
        CheckLeapYear(2000)