学步园

function ConvertDate(sdate)
'转换时间格式
 on error resume next
 S_Date = right(year(sdate),2)
 if len(month(sdate))=1 then
  S_Date =S_Date&"0"&month(sdate)
 else
  S_Date =S_Date&month(sdate) 
 end if
 if len(day(sdate))=1 then
  S_Date =S_Date&"0"&day(sdate)
 else
  S_Date =S_Date&day(sdate)
 end if
 if len(hour(sdate))=1 then
  S_Date =S_Date&"0"&hour(sdate)
 else
  S_Date =S_Date&hour(sdate)
 end if
 if len(minute(sdate))=1 then
  S_Date =S_Date&"0"&minute(sdate)
 else
  S_Date =S_Date&minute(sdate)
 end if
 if len(second(sdate))=1 then
  S_Date =S_Date&"0"&second(sdate)
 else
  S_Date =S_Date&second(sdate)
 end if     
 ConvertDate = S_Date
end function

示例：

s_Date=ConvertDate(Date)

s_Date 的值为20060101这样格式。

s_DateTime=ConvertDate(Now)

s_Date 的值为20060101010101这样格式。