MyException - 我的异常网
当前位置:我的异常网» VB » vb代码没错,但运作不了,为什么

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

www.myexceptions.net  网友分享于:2013-04-10  浏览:4次
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

------解决方案--------------------
引用:

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有