Sub test() Dim x x = Application.InputBox("输入年月日", , "2013-2-2") If VBA.IsDate(x) = True Then MsgBox "年份为:" & VBA.Year(x) End IfEnd Sub
首先isdate判断是不是日期值, 然后用format取YYYY即可