首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2013-04-09 
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代码没错,但运作不了,为什么

热点排行