欢迎加入EUCMS官方QQ交流群,与更多EUCMS用户一起讨论,共同发财!

QQ群:1222386
> 资讯中心 >> 函数库 >>正文
asp按指定规范对日期时间格式化操作
2020-10-15 0

格式:


Format_Date_Set(Byval t,Byval ftype)


参数:

t:需要转换的日期时间


ftype:转换的格式规范



'转换时间,可以随意处理时间格式,非常方便


'比如2020-02-09 08:05:07

'yyyy,yy,y(yyyy)年份,对应2020,20,2020

'mm,m月份,对应02,2

'dd,d日,对应09,9

'hh,h小时,对应08,8

'ii,i分钟,对应05,5

'ss,s秒,对应07,7

'wwww,www,ww,w为周几,分别对应:Sunday,Sun,日,1


代码:

Function Format_Date_Set(Byval t,Byval ftype)

If isNull(t) Then t = now()

If Not IsDate(t)  Then Exit Function


dim yyyy,yy,y,mm,m,dd,d,hh,h,ii,i,ss,s,wwww,www,ww,w

dim arr,j,weekArr,wArr,wcnArr


weekArr = Array( "Sunday" , "Monday" , "Tuesday" , "Wednesday" , "Thursday" ,"Friday" , "Saturday" )

wArr=Array( "Sun" , "Mon" , "Tue" , "Wed" , "Thur" , "Fri" , "Sat" )

wcnArr=Array( "日" , "一" , "二", "三", "四", "五", "六" )


yyyy=cstr(year(t)) : yy = right( yyyy,2 ) : y = yyyy

m=cstr(month(t)) : mm = m


If len(mm)=1 Then mm="0" & mm

d=cstr(day(t)) : dd = d

If len(dd)=1 Then dd="0" & dd

h = cstr(hour(t)) : hh = h

If len(hh)=1 Then hh="0" & hh

i = cstr(minute(t)) : ii = i

If len(ii)=1 Then ii="0" & ii

s = cstr(second(t)) : ss = s

If len(ss)=1 Then ss="0" & ss


w = weekday( t , 0 ) -1

wwww  = weekArr( w )

www   = wArr( w )

ww    = wcnArr( w )

w  = w + 1


ftype = LCase(ftype)

arr = array("yyyy" , "yy" , "y" , "mm" , "m" , "dd" , "d" , "hh" , "h" , "ii" , "i" , "ss" , "s" , "wwww","www","ww","w" )

t = CStr(ftype)


for j = 0 to ubound(arr)

If InStr( t, arr(j) ) > 0 Then

Execute( "t = replace( t, """ & arr(j) & """ , " & arr(j) & " )" )

end If

next


Format_Date_Set = t

End Function

应用:



response.Write Format_Date_Set(now(),"yyyy-mm-dd hh:ii:ss")

response.Write "<br>"

response.Write Format_Date_Set(now(),"yyyy-mm-dd 星期ww")


返回:


2020-08-21 16:48:35

2020-08-21 星期五



 

成品站
购买流程
  • 注册会员
  • 选择网站模板
  • 免费开通试用
  • 自助绑定域名
  • 付款转正
  • 提交备案
  • 域名生效
  • 网站正式上线
  • 分站:北京 上海 广州 深圳 南京 杭州 合肥 网站建设 芜湖 安庆 马鞍山 淮南 宿州 淮北 阜阳 徐州 睢宁 丰县 网站制作 沛县 新沂 宿迁 连云港 苏州 盐城 常州 无锡 扬州 郑州 网页设计 开封 洛阳 西安 济南 日照 枣庄 石家庄 沈阳 吉林 大庆 网络公司 黑龙江 海口 南宁 长沙 成都 桂林 太原 做网站 甘肃 云南 内蒙 拉萨 香港
    扫描关注微信

    扫描加微信

    13852154923

    0516-66628816

    工作日 9:00-12:00 13:30-18:00
    周六及部分节假日提供值班服务
    2186398
    群:1222386
    Copyright@2003-2020 亿优内容管理系统版权所有 Powered by EUCMS-v6.2.1 | 网站地图 苏ICP备19019550号