大家好，对VBA实例：返回系统的当前年份感兴趣的小伙伴，下面一起跟随三零脚本的小编来看看VBA实例：返回系统的当前年份的例子吧。

'来自：三零脚本（www.q3060.com）
Sub MyNZ()
Dim MyDate, MyYear
MyDate = Date
MyYear = Year(MyDate)
MsgBox MyYear
END SUB

代码的解析说明：上述代码过程在执行过程中，将弹出一个对话框，提示当前的年。其中Date是当前的日期，含年月日，Year(MyDate)是从上述的当前日期中提出年。最后用MsgBox弹出对话框显示这个年。