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 = MyString + "是："

Select Case MyDate.DayOfWeek.ToString()

Case "Friday"

MyInfo += "　星期五。"

Case "Monday"

MyInfo += "　星期一。"

Case "Saturday"

MyInfo += "　星期六。"

Case "Sunday"

MyInfo += "　星期天。"

Case "Thursday"

MyInfo += "　星期四。"

Case "Tuesday"

MyInfo += "　星期二。"

Case "Wednesday"

MyInfo += "　星期三。"

End Select

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

Return 1

End Function

End Class