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() + "年是："

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