分享成果，随喜真能量。大家好，今天继续和大家分享VBA编程中常用的过程代码,过程代码在这里讲解的语句非常简单单一，简单的组合起来就是一个复杂的过程，也是一个学习的过程。

VBA过程代码36：返回系统的当前日期

Sub MyNZ()

Dim MyDate, MyDay

MyDate = Date

MyDay = Day(MyDate)

MsgBox MyDay

END SUB

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

VBA过程代码37：返回系统的当前年份

Sub MyNZ()

Dim MyDate, MyYear

MyDate = Date

MyYear = Year(MyDate)

MsgBox MyYear

END SUB

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