asp格式化日期函数(16种)

<%

'=========格式化日期==================

Function FormatDate(DateStr,Types)

    Dim DateString

    If IsDate(DateStr) = False Then

        DateString = ""

    End If

    Select Case Types

        Case "1"

            DateString = Year(DateStr)"-"&Month(DateStr)"-"&Day(DateStr)

        Case "2"

            DateString = Year(DateStr)"."&Month(DateStr)"."&Day(DateStr)

        Case "3"

            DateString = Year(DateStr)"/"&Month(DateStr)"/"&Day(DateStr)

        Case "4"

            DateString = Month(DateStr)"/"&Day(DateStr)"/"&Year(DateStr)

        Case "5"

            DateString = Day(DateStr)"/"&Month(DateStr)"/"&Year(DateStr)

        Case "6"

            DateString = Month(DateStr)"-"&Day(DateStr)"-"&Year(DateStr)

        Case "7"

            DateString = Month(DateStr)"."&Day(DateStr)"."&Year(DateStr)

        Case "8"

            DateString = Month(DateStr)"-"&Day(DateStr)

        Case "9"

            DateString = Month(DateStr)"/"&Day(DateStr)

        Case "10"

            DateString = Month(DateStr)"."&Day(DateStr)

        Case "11"

            DateString = Month(DateStr)"月"&Day(DateStr)"日"

        Case "12"

            DateString = Day(DateStr)"日"&Hour(DateStr)"时"

        Case "13"

            DateString = Day(DateStr)"日"&Hour(DateStr)"点"

        Case "14"

            DateString = Hour(DateStr)"时"&Minute(DateStr)"分"

        Case "15"

            DateString = Hour(DateStr)":"&Minute(DateStr)

        Case "16"

            DateString = Year(DateStr)"年"&Month(DateStr)"月"&Day(DateStr)"日"

        Case Else

            DateString = DateStr

    End Select

    FormatDate = DateString

End Function

%>

测试：

<%

For i = 1 To 16

    Response.Write(""&i"、"&FormatDate(Now(),""&i"")"")"<br>"

Next

%>

最后输出的形式为:

1、2009-5-8

2、2009.5.8

3、2009/5/8

4、5/8/2009

5、8/5/2009

6、5-8-2009

7、5.8.2009

8、5-8

9、5/8

10、5.8

11、5月8日

12、8日15时

13、8日15点

14、15时39分

15、15:39

16、2009年5月8日