VB生日日期并判断是不是星期天

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
 

4000
   
End Function