asp教程 格式化时间函数
'本款函数可以根据用户给定的时间日期进行年月日，时分秒等，只要用户给定不同的style参数就可以显示不同风格的时间日期。
function formattime(testtime,style)
dim n,y,r,s,f,m
n = year(testtime)
y = month(testtime)
r = day(testtime)
s = hour(testtime)
f = minute(testtime)
m = second(testtime)
if len(n) = 2 then n = "20" & n
if len(y) = 1 then y = "0" & y
if len(r) = 1 then r = "0" & r
if len(s) = 1 then s = "0" & s
if len(f) = 1 then f = "0" & f
if len(m) = 1 then m = "0" & m
nn=right(n,2)
if style = 1 then
formattime = ""& n &"年"& y &"月"& r &"日"& s &"时"
elseif style = 2 then
formattime = r &"日 "& s & ":" & f & ":" & m
elseif style = 3 then
formattime = n &"年"& y &"月"& r &"日"
elseif style = 4 then
formattime = n & "-" & y & "-" & r & " " & s & ":" & f
elseif style = 5 then
formattime = y &"-"& r &" " & s & ":" & f
elseif style = 6 then
formattime = n &"年"& y &"月"& r &"日" & s &":"& f
elseif style = 7 then
formattime = n & y & r & s & f & m
elseif style = 8 then
formattime = n & "-" & y & "-" & r
elseif style = 9 then
formattime = n & "/" & y & "/" & r
end if
end function
