想必大家都知道閏年是怎么回事吧，就是四年一閏，百年不閏，四百年再閏。在VB.NET中如何實現(xiàn)這個問題，下面我們就來看看吧。

西方公歷的“閏年”

陽歷中有閏日的年份叫閏年，相反就是平年，平年為365天，閏年為366天。在公歷（格里歷）紀年中，平年的二月為28天，閏年的二月為29天。閏年平月2月29日為閏日。

增加閏日的原因

現(xiàn)時的公歷以回歸年為“年”的計算基礎，而一個回歸年大約等于365.24220日。因為在平年公歷只計算365日，結果四年后便會累積0.24220×4=0.9688日，大約等于一日，所以便逢四年增加一日閏日以抵銷這0.9688日。

計算閏年的方法

公歷紀年法中，能被4整除的大多是閏年，不能被100整除而能被400整除的年份是閏年，能被3200整除的也不是閏年，如1900年是平年，2000年是閏年，3200年不是閏年。

中國農(nóng)歷的“閏年”

中國舊歷農(nóng)歷紀年中，有閏月的一年稱為閏年。一般年份為12個月，354或355天，閏年則為13個月，383或384天

編程中公歷閏年的簡單計算方法：
設年份year
（year能被4整除 并且 不能被100整除） 或者year能被400整除 則該年為閏年
否則該年為平年

vb.net閏年的判斷方法（vb.Net已經(jīng)加入了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 & "年是閏年！", "樂博網(wǎng)提示")  
Else  
MessageBox.Show(Int_Year & "年不是閏年！", "樂博網(wǎng)提示")  
End If  
End Sub 

VB.NET基礎教程調(diào)用方式：

CheckLeapYear(Now.Year)  
CheckLeapYear(2000) 

【編輯推薦】

1. VB.NET實用教程之VB.NET實現(xiàn)登陸Ftp經(jīng)典方案講解
2. VB.NET實用教程之抓取網(wǎng)頁亂碼解決方案
3. 突破VB.NET命名空間兩大難關
4. 演示VB.NET類定義全過程
5. VB.NET類對象語法概括