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

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

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