ASP时间格式化函数

   日期：2017-06-15

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