ASP格式化时间函数

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，跟编程之家分享。