这个程序是当你输入自己的出生年月份后,程序会帮您分析出具体是星期几。
下面是代码:
Private Sub Command1_Click()
Dim year As Integer
Dim month As Integer
Dim day As Integer
Dim birthday As Date
Dim dateofweek As Byte
year = Int(Val(Text1.Text))
month = Int(Val(Text2.Text))
day = Int(Val(Text3.Text))
birthday = DateSerial(year, month, day)
dateofweek = Weekday(birthday)
Text4.Text = WeekdayName(dateofweek)
End Sub
心得体会:今天这个程序感觉挺有意思的,竟然能算出自己出生在星期几;突然觉得学习程序设计挺有意思的,而且用处还挺大,嘻嘻。