服务器之家

服务器之家 > 正文

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

时间:2019-10-12 10:53     来源/作者:阿里西西
  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. %> 
标签:

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
超A是什么意思 你好a表达的是什么
超A是什么意思 你好a表达的是什么 2019-06-06
返回顶部