作家
登录

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

作者: 来源:www.28hudong.com 2013-03-30 08:38:13 阅读 我要评论

<% '****************************** '函数:FormatDate(DateAndTime, para) '参数:DateAndTime,要格式化的日期时间;para,样式。 '作者:阿里西西 '日期:2007/7/12 '描述:将日期格式化为需要的格式 '示例:<%=FormatDate(now(), 3)%> '****************************** Public Function FormatDate(DateAndTime, para) On Error Resume Next Dim y, m, d, h, mi, s, strDateTime FormatDate = DateAndTime If Not IsNumeric(para) Then Exit Function If Not IsDate(DateAndTime) Then Exit Function y = CStr(Year(DateAndTime)) m = CStr(Month(DateAndTime)) If Len(m) = 1 Then m = "0" & m d = CStr(Day(DateAndTime)) If Len(d) = 1 Then d = "0" & d h = CStr(Hour(DateAndTime)) If Len(h) = 1 Then h = "0" & h mi = CStr(Minute(DateAndTime)) If Len(mi) = 1 Then mi = "0" & mi s = CStr(Second(DateAndTime)) If Len(s) = 1 Then s = "0" & s Select Case para Case "1" strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s Case "2" strDateTime = y & "-" & m & "-" & d Case "3" strDateTime = y & "/" & m & "/" & d Case "4" strDateTime = y & "年" & m & "月" & d & "日" Case "5" strDateTime = m & "-" & d & " " & h & ":" & mi Case "6" strDateTime = m & "/" & d Case "7" strDateTime = m & "月" & d & "日" Case "8" strDateTime = y & "年" & m & "月" Case "9" strDateTime = y & "-" & m Case "10" strDateTime = y & "/" & m Case "11" strDateTime = right(y,2) & "-" &m & "-" & d & " " & h & ":" & mi Case "12" strDateTime = right(y,2) & "-" &m & "-" & d Case "13" strDateTime = m & "-" & d Case Else strDateTime = DateAndTime End Select FormatDate = strDateTime End Function %>

  推荐阅读

  一个强健 实用的asp+ajax二级联动菜单(有演示和附源程序打包下载)

一个强健 实用的ajax二级联动菜单(有演示和附源程序打包下载) 前些天在搞后台的时候要用到二级联动的菜单,到网上去找了半天也没找到满意的,不是这错就是那错,在选择的时候有时候不能返回.真是郁闷. 后来就看到>>>详细阅读


本文标题:asp 将日期格式化为需要的格式

地址:http://www.17bianji.com/kaifa2/ASP/32496.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)