使用year(now)可以得到4位数的年
你还可以用Format来得到，
还有FormatDateTime
下面两种都是一样的结果：
FormatDateTime(now,vbLongDate)
FormatDateTime(now,1)
下面是第二个参数相关的说明
vbGeneralDate 0 显示日期和/或时间。如果有日期部分，则用短日期格式显示。如果有时间部分，则用长时间格式显示。如果都有，两部分都显示。
vbLongDate 1 用计算机区域设置值中指定的长日期格式显示日期。
vbShortDate 2 用计算机区域设置值中指定的短日期格式显示日期。
vbLongTime 3 用计算机区域设置值中指定的时间格式显示时间。
vbShortTime 4 用24小时格式（hh：mm）显示时间。