关于year()返回值问题

zhangmingo 发布于 2015-04-01 01:15， 502 次点击

Private Sub Command32_Click()
Dim a As String
a = CDate(Text16.Text)

MsgBox "今年：" & year（a）
End Sub
运行老是报错，我明明是按照视频上列子写的，一模一样啊视频上教程就可以，我看了好多遍，没看出来哪里错了啊，帮忙看看啊

4 回复

wp2319572015-04-01 08:34

没啥毛病

程序代码：

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim a As String
        a = CDate(TextBox1.Text)

        MsgBox("今年：" & Year(a))
    End Sub

你确认你的text控件名字是text16 ？你确认你的text控件里面输入的是合法的日期字符串？？？

风吹过b2015-04-01 08:41

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim a As String
        a = CDate(TextBox1.Text)
        if isdate(a) then
            MsgBox("今年：" & Year(a))
        else
            MsgBox "请输入正确的日期"
        end if
    End Sub

加一个判断，试试。

zhangmingo2015-04-01 12:03

回复 2楼 wp231957

谢谢解决了，昨天不可以今天一模一样的居然可以

zhangmingo2015-04-01 12:03

回复 3楼风吹过b

谢谢解决了，昨天不可以今天一模一样的居然可以