可能是我电脑问题吧 我把这段代码复制进去。
Dim a As String
a = CDate(Text16.Text)
MsgBox "今年是" & Year(a)还是最后一句报错 晕了

估计是你系统设置的日期格式问题.你看看出错后a值到底是什么.很可能是分隔符不对.加上format就OK了