VB.NET實現(xiàn)閏年的簡單方法是什么

VB.NET實現(xiàn)閏年的簡單方法是什么，很多新手對此不是很清楚，為了幫助大家解決這個難題，下面小編將為大家詳細(xì)講解，有這方面需求的人可以來學(xué)習(xí)下，希望你能有所收獲。

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

西方公歷的“閏年”

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

增加閏日的原因

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

計算閏年的方法

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

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

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

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

vb.net閏年的判斷方法（vb.Net已經(jīng)加入了Date.IsLeapYear方法進(jìn)行判斷，無須那么復(fù)雜了）

VB.NET基礎(chǔ)教程效果圖：

VB.NET基礎(chǔ)教程實例代碼如下：

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基礎(chǔ)教程調(diào)用方式：

CheckLeapYear(Now.Year)  CheckLeapYear(2000)

看完上述內(nèi)容是否對您有幫助呢？如果還想對相關(guān)知識有進(jìn)一步的了解或閱讀更多相關(guān)文章，請關(guān)注億速云行業(yè)資訊頻道，感謝您對億速云的支持。