用VB 编写出 输入天数 输出星期1.2...

来源：百度知道 编辑：UC知道 时间：2024/06/28 08:57:28
Private Sub Form_Load()

For a = 2007 To 2050
Combo1.AddItem a
Next a
For b = 1 To 12
Combo2.AddItem b
Next b
For c = 1 To 31
Combo3.AddItem c
Next c

End Sub

Private Sub Combo3_Click()
Dim qr As Date
FormatDateTime (yyyy - mm - dd)
qr = a + b + c
getweekday = Weekday(getday, vbMonday)
Label1.Caption = qr
End Sub
在组合框选择 2007 12 24 label 显示星期几
不知道哪错了 也不太理解什么意思.

Private Sub Form_Load()

For a = 2007 To 2050
Combo1.AddItem a
Next a
For b = 1 To 12
Combo2.AddItem b
Next b
For c = 1 To 31
Combo3.AddItem c
Next c

End Sub

Private Sub Combo3_Click()
Dim qr As Date
qr = Combo1.Text & "-" & Combo2.Text & "-" & Combo3.Text
getweekday = Weekday(qr, vbMonday)
Label1.Caption = getweekday
End Sub