欢迎加入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-2021 亿优内容管理系统版权所有 Powered by EUCMS-v6.2.1 | 网站地图 苏ICP备19019550号