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

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

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

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