帮帮我啊。。vb用choose函数显示今天是星期几

Question

如题所述

Answer 1

如果显示任意一天：
Private Sub Form_Click()
Print "星期" & Choose(Weekday("2012-4-9"), "日", "一", "二", "三", "四", "五", "六")
End Sub

如果显示当天：
Private Sub Form_Click()
Print "星期" & Choose(Weekday(Date), "日", "一", "二", "三", "四", "五", "六")
End Sub追问

好样的

追答

好样的就给分啊

追问

怎样啊

追答

Private Sub Command1_Click()
Dim D As Integer, W As String
D = Weekday(CDate(Text1.Text & "-" & Text2.Text & "-" & Text3.Text))
Select Case D
Case 1
W = "日"
Case 2
W = "一"
Case 3
W = "二"
Case 4
W = "三"
Case 5
W = "四"
Case 6
W = "五"
Case 7
W = "六"
End Select
Label4.Caption = "您输入的日期是星期" & W
End Sub

追问

不行啊

追答

哪里不行

追问

类型不匹配啊 你运行了没啊

追答

运行没问题，自己检查你的输入，三个文本框不要空在那或者输入非日期数字。
不要别人什么都写给你了还没法用，不懂得思考就永远不会有进步。

追问

可不可以加你啊 QQ

Answer 2

你什么意思，选择什么后显示星期几