vb.net平年闰年 c# 闰年

VB.NET 根据年月日判断是否为闰年或者平年！

VB.NET 判断是否为闰年或者平年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() + "年是vb.net平年闰年："

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

相关问答

Q1: 在vb.net中，如何计算出2000-2100年之间的闰年？输出到文本框，并统计输出闰年的个数？主要是统计个数

这样：

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 = "闰年个数:" + 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

''' 获取指定年份区间中所有闰年组成的数组

''' /summary

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

''' param name="EndYear"结束年份/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中进行日期处理时，避免手工判断或计算是个好主意，因为手工计算由于代码的质量问题可能不准确。可以使用.NET提供的类的功能进行日期处理。

例如，如果需要判断给定的某年是否闰年，可以使用VB.NET的IsLeapYear函数。下面是如何使用该函数的一个例子：

Private Sub LeapYearCheck()

Dim bLeapYear AsBoolean

bLeapYear = Date.IsLeapYear(Now.Year)

MessageBox.Show(bLeapYear)

bLeapYear = Date.IsLeapYear(2004)

MessageBox.Show(bLeapYear)

End Sub

Q2: 输入年份，编程判断是否为闰年 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平年闰年的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于c# 闰年、vb.net平年闰年的信息别忘了在本站进行查找喔。