函数******************************  
  FormatDateTime(Date[,   NamedFormat])  
   
  //  
  NamedFormat的取值:******************************  
  常数                         值                                   描述    
  ---------------------------------------------------------------------------------  
  vbGeneralDate       0           显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式。如果都存在，则显示所有部分。      
   
  vbLongDate             1             使用计算机区域设置中指定的长日期格式显示日期。    
  vbShortDate           2             使用计算机区域设置中指定的短日期格式显示日期。    
  vbLongTime             3             使用计算机区域设置中指定的时间格式显示时间。    
  vbShortTime           4             使用   24   小时格式   (hh:mm)   显示时间。