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

'来自：（www.q3060.com）
Sub MyNZ()
Dim MyDate, MyDay
MyDate = Date
MyDay = Day(MyDate)
MsgBox MyDay
END SUB

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