VB.NET基礎(chǔ)教程教你如何實(shí)現(xiàn)閏年簡單方法
想必大家都知道閏年是怎么回事吧，就是四年一閏，百年不閏，四百年再閏。在VB.NET中如何實(shí)現(xiàn)這個(gè)問題，下面我們就來看看吧。
西方公歷的“閏年”
陽歷中有閏日的年份叫閏年，相反就是平年，平年為365天，閏年為366天。在公歷（格里歷）紀(jì)年中，平年的二月為28天，閏年的二月為29天。閏年平月2月29日為閏日。
增加閏日的原因
現(xiàn)時(shí)的公歷以回歸年為“年”的計(jì)算基礎(chǔ)，而一個(gè)回歸年大約等于365.24220日。因?yàn)樵谄侥旯珰v只計(jì)算365日，結(jié)果四年后便會(huì)累積0.24220×4=0.9688日，大約等于一日，所以便逢四年增加一日閏日以抵銷這0.9688日。
計(jì)算閏年的方法
公歷紀(jì)年法中，能被4整除的大多是閏年，不能被100整除而能被400整除的年份是閏年，能被3200整除的也不是閏年，如1900年是平年，2000年是閏年，3200年不是閏年。
中國農(nóng)歷的“閏年”
中國舊歷農(nóng)歷紀(jì)年中，有閏月的一年稱為閏年。一般年份為12個(gè)月，354或355天，閏年則為13個(gè)月，383或384天
編程中公歷閏年的簡單計(jì)算方法：
設(shè)年份year
（year能被4整除 并且 不能被100整除） 或者year能被400整除 則該年為閏年
否則該年為平年
vb.net閏年的判斷方法（vb.Net已經(jīng)加入了Date.IsLeapYear方法進(jìn)行判斷，無須那么復(fù)雜了）
VB.NET基礎(chǔ)教程效果圖：
VB.NET基礎(chǔ)教程實(shí)例代碼如下：
- 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)
【編輯推薦】
