送分问题

[ssqtjffcu]

Private Sub Command1_Click()
Dim a As Data, m As Integer, s As String
a = Text1.Text
m = Weekday(a)
Select Case m
Case 1: s = "星期日"
Case 2: s = "星期一"
Case 3: s = "星期二"
Case 4: s = "星期三"
Case 5: s = "星期四"
Case 6: s = "星期五"
Case 7: s = "星期六"
End Select
Label2.Caption = "当天是" & s
End Sub

照着书上打的,难道书上有错???

[东方之珠]

S从哪儿来,上面是case m

[东方之珠]

哦,对不起了.
Dim a As Data应该改为:Dim a As Date

[ssqtjffcu]

唉,我晕,这么弱智的错误竟然没看到.谢谢上面的了

[clear_zero]

你确定不是抄错了？

dim a as Date?????????