Private Sub Command1_Click()
Dim Year As Integer
Dim Month As Integer
Dim Day As Integer
Dim DayOfWeek As Integer
Dim Birthday As Date
Year = Int(Val(Text1.Text))
Month = Int(Val(Text2.Text))
Day = Int(Val(Text3.Text))
Birthday = DateSerial(Year, Month, Day)
DayOfWeek = Weekday(Birthday)
Label6.Caption = MyWeekdayName(DayOfWeek)
End Sub
Function MyWeekdayName(DayOfWeek As Integer) As String
Select Case DayOfWeek
Case 1
MyWeekdayName = "星期天"
Case Else
MyWeekdayName = "非星期天"
End Select
End Function