vb计算出生星期

最新推荐文章于 2022-03-12 23:02:27 发布

shisuiwuhen

最新推荐文章于 2022-03-12 23:02:27 发布

阅读量474

点赞数

文章标签： vb integer function command

本文链接：https://blog.csdn.net/shisuiwuhen/article/details/7474250

版权

该博客介绍了一个使用VB编写的程序，该程序能够根据输入的年、月、日计算出对应的出生日期是星期几。通过Command1_Click事件处理程序，结合DateSerial和Weekday函数，将用户在Text1、Text2和Text3文本框中输入的日期转换为星期的名称，并显示在Label6上。

摘要由CSDN通过智能技术生成

今天设计了一个计算出生的星期程序

代码如下

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 = "星期六"
    En