'函数:把时间改为字符串yyyymmddhhmmss
function Zhuanhuan_Date(ThisDate)
Zhuanhuan_Date=year(ThisDate)
if month(ThisDate)<10 then
Zhuanhuan_Date=Zhuanhuan_Date&"0"&month(ThisDate)
else
Zhuanhuan_Date=Zhuanhuan_Date&month(ThisDate)
end if
if day(ThisDate)<10 then
Zhuanhuan_Date=Zhuanhuan_Date&"0"&day(ThisDate)
else
Zhuanhuan_Date=Zhuanhuan_Date&day(ThisDate)
end if
if hour(ThisDate)<10 then
Zhuanhuan_Date=Zhuanhuan_Date&"0"&hour(ThisDate)
else
Zhuanhuan_Date=Zhuanhuan_Date&hour(ThisDate)
end if
if minute(ThisDate)<10 then
Zhuanhuan_Date=Zhuanhuan_Date&"0"&minute(ThisDate)
else
Zhuanhuan_Date=Zhuanhuan_Date&minute(ThisDate)
end if
if second(ThisDate)<10 then
Zhuanhuan_Date=Zhuanhuan_Date&"0"&second(ThisDate)
else
Zhuanhuan_Date=Zhuanhuan_Date&second(ThisDate)
end if
end function
'函数:把数据库中读出的时间yyyymmdd hh:mm:ss改为字符串“yyyy年mm月dd日 hh:mm:ss”
Function Date_N2C (ThisDate)
Date_N2C = mid(ThisDate,1,4) & "年" & mid(ThisDate,5,2) & "月" & mid(ThisDate,7,2) & "日"
Date_N2C = Date_N2C&" "&mid(ThisDate,9,2)&":"&mid(ThisDate,11,2)&":"&mid(ThisDate,13,2)
End Function