我...代码给注释掉了,再贴一遍
function TransDate()
dim now_date
now_date=FormatDateTime(date,1)
dim now_year,now_month,now_day
now_year=CStr(Year(now_date))
now_month=CInt(Month(now_date))
now_day=CInt(Day(now_date))
if now_month<=9 then
now_month="0"&CStr(now_month)
else
now_month=CStr(now_month)
end if
if now_day<=9 then
now_day="0"&CStr(now_day)
else
now_day=CStr(now_day)
end if
TransDate=now_year&now_month&now_day
end function