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

QQ群:1222386
> 资讯中心 >> 函数库 >>正文
asp时间格式化函数
2020-10-15 0

格式:

Format_Date_List(Byval t,Byval ftype)

参数:

t:传递要格式化的时间


ftype:传递要格式化的样式

代码:

Function Format_Date_List(Byval t,Byval ftype) 
 dim y, m, d, h, mi, s 
Format_Date_List=""
If IsDate(t)=False Then Exit Function
y=cstr(year(t)) 
m=cstr(month(t)) 

If len(m)=1 Then m="0" & m 
d=cstr(day(t)) 

If len(d)=1 Then d="0" & d 
h = cstr(hour(t)) 

If len(h)=1 Then h="0" & h 
mi = cstr(minute(t)) 

If len(mi)=1 Then mi="0" & mi 
s = cstr(second(t)) 

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

select case cint(ftype) 

case 1 
' yyyy-mm-dd 
Format_Date_List=y & "-" & m & "-" & d 

case 2 
' yy-mm-dd 
Format_Date_List=right(y,2) & "-" & m & "-" & d 

case 3 
' mm-dd 
Format_Date_List=m & "-" & d 

case 4 
' yyyy-mm-dd hh:mm:ss 
Format_Date_List=y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s 

case 5 
' hh:mm:ss 
Format_Date_List=h & ":" & mi & ":" & s 

case 6 
' yyyy年mm月dd日 
Format_Date_List=y & "年" & m & "月" & d & "日"

case 7 
' yyyymmdd 
Format_Date_List=y & m & d 

case 8 
'yyyymmddhhmmss 
Format_Date_List=m & "月" & d & "日"

case 9 
'MMDD 月日
Format_Date_List=m&d

end select 

End Function

应用:response.Write Format_Date_List(now(),6)

返回:2020年08月22日

 

成品站
购买流程
  • 注册会员
  • 选择网站模板
  • 免费开通试用
  • 自助绑定域名
  • 付款转正
  • 提交备案
  • 域名生效
  • 网站正式上线
  • 分站:
    扫描关注微信

    扫描加微信

    13852154923

    0516-66628816

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