日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
VB.NET基礎(chǔ)教程教你如何實(shí)現(xiàn)閏年簡(jiǎn)單方法

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

西方公歷的“閏年”

陽(yáng)歷中有閏日的年份叫閏年，相反就是平年，平年為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年不是閏年。

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

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

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

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

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

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

 
 
 
 
    
  
  
  
  
  1. Private Sub CheckLeapYear(ByVal Int_Year As Integer) 
    2. 
  
  
  
  
  2. Dim Boo_LeapYear As Boolean 
    3. 
  
  
  
  
  3. Boo_LeapYear = Date.IsLeapYear(Int_Year) 
    4. 
  
  
  
  
  4. If Boo_LeapYear Then 
    5. 
  
  
  
  
  5. MessageBox.Show(Int_Year & "年是閏年！", "樂(lè)博網(wǎng)提示") 
    6. 
  
  
  
  
  6. Else 
    7. 
  
  
  
  
  7. MessageBox.Show(Int_Year & "年不是閏年！", "樂(lè)博網(wǎng)提示") 
    8. 
  
  
  
  
  8. End If 
    9. 
  
  
  
  
  9. End Sub
    10.

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

 
 
 
 
    
  
  
  
  
  1. CheckLeapYear(Now.Year) 
    2. 
  
  
  
  
  2. CheckLeapYear(2000)
    3.

本文題目：VB.NET基礎(chǔ)教程教你如何實(shí)現(xiàn)閏年簡(jiǎn)單方法
URL分享：http://www.dlmjj.cn/article/djpojeo.html