服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp 将日期格式化为需要的格式

asp 将日期格式化为需要的格式

2019-10-12 10:53阿里西西 ASP教程

asp 将日期格式化为需要的格式

  1. <%  
  2. '******************************  
  3. '函数:FormatDate(DateAndTime, para)  
  4. '参数:DateAndTime,要格式化的日期时间;para,样式。  
  5. '作者:阿里西西  
  6. '日期:2007/7/12  
  7. '描述:将日期格式化为需要的格式  
  8. '示例:<%=FormatDate(now(), 3)%>  
  9. '******************************  
  10. Public Function FormatDate(DateAndTime, para)  
  11.   On Error Resume Next  
  12.   Dim y, m, d, h, mi, s, strDateTime  
  13.   FormatDate = DateAndTime  
  14.   If Not IsNumeric(para) Then Exit Function  
  15.   If Not IsDate(DateAndTime) Then Exit Function  
  16.   y = CStr(Year(DateAndTime))  
  17.   m = CStr(Month(DateAndTime))  
  18.   If Len(m) = 1 Then m = "0" & m  
  19.   d = CStr(Day(DateAndTime))  
  20.   If Len(d) = 1 Then d = "0" & d  
  21.   h = CStr(Hour(DateAndTime))  
  22.   If Len(h) = 1 Then h = "0" & h  
  23.   mi = CStr(Minute(DateAndTime))  
  24.   If Len(mi) = 1 Then mi = "0" & mi  
  25.   s = CStr(Second(DateAndTime))  
  26.   If Len(s) = 1 Then s = "0" & s  
  27.   Select Case para  
  28.   Case "1"  
  29.    strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s  
  30.   Case "2"  
  31.    strDateTime = y & "-" & m & "-" & d  
  32.   Case "3"  
  33.    strDateTime = y & "/" & m & "/" & d  
  34.   Case "4"  
  35.    strDateTime = y & "年" & m & "月" & d & "日"  
  36.   Case "5"  
  37.    strDateTime = m & "-" & d & " " & h & ":" & mi  
  38.   Case "6"  
  39.    strDateTime = m & "/" & d  
  40.   Case "7"  
  41.    strDateTime = m & "月" & d & "日"  
  42.   Case "8"  
  43.    strDateTime = y & "年" & m & "月"  
  44.   Case "9"  
  45.    strDateTime = y & "-" & m  
  46.   Case "10"  
  47.    strDateTime = y & "/" & m  
  48.   Case "11"  
  49.    strDateTime = right(y,2) & "-" &m & "-" & d & " " & h & ":" & mi  
  50.   Case "12"  
  51.    strDateTime = right(y,2) & "-" &m & "-" & d  
  52.   Case "13"  
  53.    strDateTime = m & "-" & d  
  54.   Case Else  
  55.    strDateTime = DateAndTime  
  56.   End Select  
  57.  FormatDate = strDateTime  
  58. End Function  
  59. %> 

延伸 · 阅读

精彩推荐