使用year(now)可以得到4位数的年  
  你还可以用Format来得到，

还有FormatDateTime

下面两种都是一样的结果：
  FormatDateTime(now,vbLongDate)

FormatDateTime(now,1)

下面是第二个参数相关的说明  
  vbGeneralDate   0   显示日期和/或时间。如果有日期部分，则用短日期格式显示。如果有时间部分，则用长时间格式显示。如果都有，两部分都显示。    
  vbLongDate   1   用计算机区域设置值中指定的长日期格式显示日期。    
  vbShortDate   2   用计算机区域设置值中指定的短日期格式显示日期。    
  vbLongTime   3   用计算机区域设置值中指定的时间格式显示时间。    
  vbShortTime   4   用24小时格式（hh：mm）显示时间。