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这样格式。