vb代码没错，但运作不了，为什么

vb代码没错，但运行不了，为什么？
麻烦走过瞧见的帮我看看，谢谢！

下面这段代码是抄的书上的，可是在我的电脑上出现了问题。运行时报错。
第四行和第六行报错。

Private Sub Command1_Click()
Dim i
i = DateDiff("d", CDate(Text1), CDate(Text2))
Label3.Caption= "日期差："&i& "天"
i = Abs(i)
Label4.Caption="绝对值之差："&i&"天"
End Sub

Private Sub Form_Load()
test2.Text = Date
End Sub
vb command date 运行不了
[解决办法]
到底是Text2还是Test2
[解决办法]


Private Sub Command1_Click()
    Dim i
    i = DateDiff("d", CDate(Text1), CDate(Text2))
    Label3.Caption= "日期差：" & i & "天"
    i = Abs(i)
    Label4.Caption= "绝对值之差：" & i & "天"
End Sub

Private Sub Form_Load()
    Text2.Text = Date
End Sub

错误如此多的书，不妨当废纸用。
[解决办法]

Private Sub Command1_Click()
    Dim i
    i = DateDiff("d", CDate(Text1.text), CDate(Text2.text))
    Label3.Caption= "日期差："& i & "天"
    Label3.refresh
    i = Abs(i)
    Label4.Caption="绝对值之差："& i &"天"
    Label4.refresh
End Sub

Private Sub Form_Load()
    test2.Text = format(now(),"YYYY-MM-DD")
End Sub

[解决办法]
是不是你的系统日期格式被改动过，比如包含附加的中文信息等，如 xxxx-xx-xx xx:xx:xx 下午之类的，如果是这样，在日期转换的时候会出现问题的，还有，你的对象名是不是写错了：
test2.Text = Date
是不是应该是
text2.Text = Date
你可以这样改改代码看：


Private Sub Command1_Click()
    Dim i
    i = DateDiff("d", _
                CDate(Format(Text1.Text, "yyyy-mm-dd HH:mm:ss")), _
                CDate(Format(Text3.Text, "yyyy-mm-dd HH:mm:ss")))
    Label3.Caption = "日期差：" & i & "天"
    i = Abs(i)
    Label4.Caption = "绝对值之差：" & i & "天"
End Sub

Private Sub Form_Load()
    'test2.Text = Format(Now, "yyyy-mm-dd")
    Text2.Text = Format(Now, "yyyy-mm-dd")
    Text1.Text = Format(Now, "yyyy-mm-dd")
    Text3.Text = "2011-1-1"
End Sub

[解决办法]

引用:

额，谢谢你们！
一楼！谢谢！三楼，你的也运行不了！不知道为什么？改成了和你一样，但是，运行时，提示类型不匹配。
请问这是什么原因？

类型不匹配，说明你在 Text1 中没有输入有效的日期。看来你真的需要好好学习，还要动脑。
[解决办法]
的自己写，可一行一行增加。就能找到错误。
[解决办法]
of123点的够明了.....
[解决办法]
文本框Text1.Text里木有日期格式的字符串 vb代码没错，但运作不了，为什么

vb代码没错但运作不了为什么

热点推荐