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, TextBox2.Text)

End Sub

Function 判断天数(ByVal MyYear As Integer, ByVal MyMonth As Integer) As String

Dim MyCalendar As New System.Globalization.GregorianCalendar()

Dim MyInfo As String = MyYear.ToString() + "年一共有 "

MyInfo += MyCalendar.GetDaysInYear(MyYear).ToString() + "天！"

MyInfo += vbCrLf + MyYear.ToString() + "年" + MyMonth.ToString() + "月一共有 "

MyInfo += MyCalendar.GetDaysInMonth(MyYear, MyMonth).ToString() + "天！"

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

Return 1

End Function

End Class