计算出生的星期程序

最新推荐文章于 2023-01-08 17:35:38 发布

szqbk

最新推荐文章于 2023-01-08 17:35:38 发布

阅读量247

点赞数

文章标签： integer function command

本文链接：https://blog.csdn.net/szqbk/article/details/7496232

版权

计算出生的星期程序

代码如下

Private Sub Command1_Click()
Dim Year As Integer
Dim Month As Integer
Dim Day As Integer
Dim Birthday As Date
Dim N As Integer
Year = Int(Val(Text1.Text))
Month = Int(Val(Text2.Text))
Day = Int(Val(Text3.Text))
Birthday = DateSerial(Year, Month, Day)
N = Weekday(Birthday)
Label6.Caption = MyWeekdayName(N)
End Sub
Private Function MyWeekdayName(N As Integer) As String
Select Case N
     Case 1
         MyWeekdayName = "星期天"
     Case 2
         MyWeekdayName = "星期一"
     Case 3
         MyWeekdayName = "星期二"
     Case 4
         MyWeekdayName = "星期三"
     Case 5
         MyWeekdayName = "星期四"
     Case 6
         MyWeekdayName = "星期五"
     Case 7
         MyWeekdayName = "星期六"
     End Select
End FunctionPrivate Sub Command1_Click()
Dim Year As Integer
Dim Month As Integer
Dim Day As Integer
Dim Birthday As Date
Dim N As Integer
Year = Int(Val(Text1.Text))
Month = Int(Val(Text2.Text))
Day = Int(Val(Text3.Text))
Birthday = DateSerial(Year, Month, Day)
N = Weekday(Birthday)
Label6.Caption = MyWeekdayName(N)
End Sub
Private Function MyWeekdayName(N As Integer) As String
Select Case N
     Case 1
         MyWeekdayName = "星期天"
     Case 2
         MyWeekdayName = "星期一"
     Case 3
         MyWeekdayName = "星期二"
     Case 4
         MyWeekdayName = "星期三"
     Case 5
         MyWeekdayName = "星期四"
     Case 6
         MyWeekdayName = "星期五"
     Case 7
         MyWeekdayName = "星期六"
     End Select
End Function