精美而实用的网站,关注web编程技术、网站运营、SEO推广,让您轻松愉快的学习

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,跟青岛星网分享。

Tags:ASP 时间函数