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

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

没啥毛病

 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控件里面输入的是合法的日期字符串？？？

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

加一个判断，试试。

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

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