在vb.net中，如何計算出2000-2100年之間的閏年？輸出到文本框，并統(tǒng)計輸出閏年的個數(shù)？主要是統(tǒng)計個數(shù)

這樣：

成都創(chuàng)新互聯(lián)公司-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價比炎陵網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式炎陵網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋炎陵地區(qū)。費用合理售后完善，十余年實體公司更值得信賴。

Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click

Dim?leapyears()?As?Integer?=?GetLeapYears(2000,?2100)

Dim?str?As?String

Try

Dim?count?As?Integer?=?UBound(leapyears)?+?1

str?=?"閏年個數(shù):"?+?count.ToString

For?i?=?0?To?UBound(leapyears)

str?+=?"?"?+?leapyears(i).ToString

Next

TextBox1.Text?=?str

Catch?ex?As?Exception?

End?Try

End?Sub

'''?summary

'''?獲取指定年份區(qū)間中所有閏年組成的數(shù)組

'''?/summary

'''?param?name="StartYear"起始年份/param

'''?param?name="EndYear"結(jié)束年份/param

'''?returns/returns

'''?remarks/remarks

Private?Function?GetLeapYears(StartYear?As?Integer,?EndYear?As?Integer)?As?Integer()

Dim?leapyears()?As?Integer?=?Nothing

Dim?index?As?Integer?=?0

For?i?=?StartYear?To?EndYear

If?(i?Mod?400?=?0)?Or?(i?Mod?4?=?0?And?i?Mod?100??0)?Then

ReDim?Preserve?leapyears(index)

leapyears(index)?=?i

index?+=?1

End?If

Next

Return?leapyears

End?Function

擴展資料：

注意事項

DateSerial返回包含指定的年、月、日的 Variant (Date)。

語法：DateSerial(year, month, day)

Private Function MonthToLeapYear(ByVal Yea As Integer) As Boolean

MonthToLeapYear = Day(DateSerial(Yea, 2, 29)) = 29

End Function

Private Sub Command1_Click()

If Len(Text1.Text) = 4 Then

? If MonthToLeapYear(Text1.Text) = True Then

? ? ? Print Text1.Text "年是閏年"

? Else

? ? ? Print Text1.Text "年是平年"

? End If

Else

?Print "錯誤：請輸入正確的年份！"

End If

End Sub

在VB.NET中進行日期處理時，避免手工判斷或計算是個好主意，因為手工計算由于代碼的質(zhì)量問題可能不準(zhǔn)確?？梢允褂?NET提供的類的功能進行日期處理。

例如，如果需要判斷給定的某年是否閏年，可以使用VB.NET的IsLeapYear函數(shù)。下面是如何使用該函數(shù)的一個例子：

Private Sub LeapYearCheck()

Dim bLeapYear AsBoolean

bLeapYear = Date.IsLeapYear(Now.Year)

MessageBox.Show(bLeapYear)

bLeapYear = Date.IsLeapYear(2004)

MessageBox.Show(bLeapYear)

End Sub

輸入年份，編程判斷是否為閏年 VB.NET

Private Sub Command1_Click()

Dim year As Integer, y As Integer

year = Val(InputBox("要判斷的年份是："))

Call runnian(year, y)

If y = 1 Then

Print Str(year); Spc(2); "年是閏年!"

Else

Print Str(year); Spc(2); "年不是閏年!"

End If

End Sub

Public Sub runnian(n As Integer, x As Integer)

Dim leap As Integer

If n Mod 400 = 0 Then

leap = 1

ElseIf n Mod 4 = 0 And n Mod 100 0 Then

leap = 1

Else

leap = 0

End If

x = leap

End Sub

VB.NET 根據(jù)年月日判斷是否為閏年或者平年！

VB.NET 判斷是否為閏年或者平年！

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

閏年平年(TextBox1.Text)

End Sub

Function 閏年平年(ByVal MyString As String) As String

Dim MyDate As DateTime = Convert.ToDateTime(MyString)

Dim MyInfo As String = MyDate.Year.ToString() + "年是："

If (DateTime.IsLeapYear(MyDate.Year) = True) Then

MyInfo += "閏年。"

Else

MyInfo += "平年。"

End If

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

Return 1

End Function

End Class

vb.net判斷某一個年份是否為閏年的含糊

Public?Function?IsRunnian(ByVal?n?As?Integer)?As?Boolean

Dim?res?As?Boolean

res?=?False

If?n?Mod?400?=?0?Then

res?=?True

End?If

If?(n?Mod?100??0)?And?(n?Mod?4?=?0)?Then

res?=?True

End?If

Return?res

End?Function

VB編程 判斷閏年

Private?Sub?Form_Click()

Dim?a?As?Integer

a?=?Val(InputBox("輸入年份"))

If?a?Mod?400?=?0?Then

Print?"是瑞年"

ElseIf?a?Mod?4?=?0?And?a?Mod?100??0?Then

Print?"是瑞年?"

Else

Print?"不是瑞年"

End?If

End?Sub