你出生那天是星期几

Private Sub Command1_Click()

     Dim year As Integer
     Dim month As Integer
     Dim day As Integer
     Dim s 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)
     s = Weekday(birthday)
     Label6.Caption = myweekdayname(s)
   
   
    End Sub
Function myweekdayname(s As Integer)

    Select Case s
    Case Is = 1: myweekdayname = "星期日"
    Case Is = 2: myweekdayname = "星期一"
    Case Is = 3: myweekdayname = "星期二"
    Case Is = 4: myweekdayname = "星期三"
    Case Is = 5: myweekdayname = "星期四"
    Case Is = 6: myweekdayname = "星期五"
    Case Else: myweekdayname = "星期六"
   End Select
  

 

End Function

 

这个程序主要是教我们怎么用select case ！！！

这是一个很有意思的小程序，只要你输入你的出生日期，它能自动帮你分析出你出生那天是星期几！！！