ASP格式化日期的函数（输出13种样式）

1. '================================================
2.  '函数名：FormatDate
3.  '作  用：格式化日期
4.  '参  数：DateAndTime   ----原日期和时间
5.  '        para   ----日期格式
6.  '返回值：格式化后的日期
7.  '================================================
8.  Public Function FormatDate(DateAndTime, para)
9.   On Error Resume Next
10.   Dim y, m, d, h, mi, s, strDateTime
11.   FormatDate = DateAndTime
12.   If Not IsNumeric(para) Then Exit Function
13.   If Not IsDate(DateAndTime) Then 
14.     Response.write("错误日期格式")
15.     Exit Function
16.   End If
17.   y = CStr(Year(DateAndTime))
18.   m = CStr(Month(DateAndTime))
19.   If Len(m) = 1 Then m = "0" & m
20.   d = CStr(Day(DateAndTime))
21.   If Len(d) = 1 Then d = "0" & d
22.   h = CStr(Hour(DateAndTime))
23.   If Len(h) = 1 Then h = "0" & h
24.   mi = CStr(Minute(DateAndTime))
25.   If Len(mi) = 1 Then mi = "0" & mi
26.   s = CStr(Second(DateAndTime))
27.   If Len(s) = 1 Then s = "0" & s
28.   Select Case para
29.   Case "1"
30.    strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
31.   Case "2"
32.    strDateTime = y & "-" & m & "-" & d
33.   Case "3"
34.    strDateTime = y & "/" & m & "/" & d
35.   Case "4"
36.    strDateTime = y & "年" & m & "月" & d & "日"
37.   Case "5"
38.    strDateTime = m & "-" & d & " " & h & ":" & mi
39.   Case "6"
40.    strDateTime = m & "/" & d
41.   Case "7"
42.    strDateTime = m & "月" & d & "日"
43.   Case "8"
44.    strDateTime = y & "年" & m & "月"
45.   Case "9"
46.    strDateTime = y & "-" & m
47.   Case "10"
48.    strDateTime = y & "/" & m
49.   Case "11"
50.    strDateTime = right(y,2) & "-" &m & "-" & d & " " & h & ":" & mi
51.   Case "12"
52.    strDateTime = right(y,2) & "-" &m & "-" & d
53.   Case "13"
54.    strDateTime = m & "-" & d
55.   Case Else
56.    strDateTime = DateAndTime
57.   End Select
58.  FormatDate = strDateTime
59. End Function
60. ss = Now()
61. Call FormatDate("2008-10-18 14:34:43","1")
62. Response.write FormarDate