ASP时间函数是我们经常会用到的,但是ASP时间函数有时候出来的格式不是我们想要的,我们不同的时候需要不同的时间格式,如:年-月-日,月-日等等,有时候我们还需要给日期自动补零操作。
下面青岛星网就跟大家分享一个青岛星网写的一个比较完整的ASP格式化时间函数,大家可以直接调用即可,可以基本满足各类不同的时间格式要求。
该ASP格式化日期时间函数提供了13种不同的日期格式供大家选择,可以调用不同的参数来选择不同的时间格式。
'ASP格式化时间函数 function formatdate(dateandtime,para) on error resume next dim y, m, d, h, mi, s, strdatetime formatdate = dateandtime if not isnumeric(para) then exit function if not isdate(dateandtime) then exit function y = cstr(year(dateandtime)) m = cstr(month(dateandtime)) if len(m) = 1 then m = "0" & m d = cstr(day(dateandtime)) if len(d) = 1 then d = "0" & d h = cstr(hour(dateandtime)) if len(h) = 1 then h = "0" & h mi = cstr(minute(dateandtime)) if len(mi) = 1 then mi = "0" & mi s = cstr(second(dateandtime)) if len(s) = 1 then s = "0" & s select case para case "1" strdatetime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s case "2" strdatetime = y & "-" & m & "-" & d case "3" strdatetime = y & "/" & m & "/" & d case "4" strdatetime = y & "年" & m & "月" & d & "日 " & h & ":" & mi & ":" & s case "5" strdatetime = m & "-" & d & " " & h & ":" & mi case "6" strdatetime = m & "/" & d case "7" strdatetime = m & "月" & d & "日" case "8" strdatetime = y & "年" & m & "月" case "9" strdatetime = y & "-" & m case "10" strdatetime = y & "/" & m case "11" strdatetime = right(y,2) & "-" &m & "-" & d & " " & h & ":" & mi case "12" strdatetime = right(y,2) & "-" &m & "-" & d case "13" strdatetime = m & "-" & d case else strdatetime = dateandtime end select formatdate = strdatetime end function
如果大家还有更好的ASP格式化时间函数,欢迎大家加青岛星网在线QQ,跟青岛星网分享。