极乐门资源网 Design By www.ioogu.com
因为短日期不足2位,所以在网页排版的时候,影响美观,下面两个函数可以解决这个问题。
2020-2-7短日期 变 2020-02-07长日期
Function FStime(times) Dim years,months,days if len(times)=0 then exit function years=year(times) months=right("0"&month(times),2) days=right("0"&day(times),2) times=years&"-"&months&"-"&days FStime=times End Function
2020-2-7 23:37:5短日期 变 2020-02-07 23:37:05长日期
Function FLtime(times) Dim years,months,days,hours,minutes,seconds if len(times)=0 then exit function years=year(times):months=right("0"&month(times),2) days=right("0"&day(times),2):hours=right("0"&hour(times),2) minutes=right("0"&minute(times),2):seconds=right("0"&second(times),2) FLtime=years&"-"&months&"-"&days&" "&hours&":"&minutes&":"&seconds End Function
Pw_Sys 日期格式转换函数
<% Rem Pw_Sys 日期格式转换函数 function DateTimeFormat(DateTime,Format) select case Format case "1" DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"&Right("0" & Day(DateTime),2)&"日" case "2" DateTimeFormat=""&month(DateTime)&"月"&Right("0" & Day(DateTime),2)&"日" case "3" DateTimeFormat=""&year(DateTime)&"-"&month(DateTime)&"-"&Right("0" & Day(DateTime),2)&"" case "4" DateTimeFormat=""&year(DateTime)&"/"&month(DateTime)&"/"&Right("0" & Day(DateTime),2)&"" case "5" DateTimeFormat=""&month(DateTime)&"/"&Right("0" & Day(DateTime),2)&"" case "6" DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"&Right("0" & Day(DateTime),2)&"日<font color=red> "&FormatDateTime(DateTime,4)&"</font>" case "7" temp="星期日,星期一,星期二,星期三,星期四,星期五,星期六" temp=split(temp,",") DateTimeFormat=temp(WeekRight("0" & Day(DateTime),2)-1) case "8" DateTimeFormat=""&month(DateTime)&"-"&Right("0" & Day(DateTime),2)&"" case "9" if len(hour(DateTime)) = 1 then str="0"&hour(DateTime) else str=hour(DateTime) end if DateTimeFormat=DateTimeFormat(DateTime,1)&" "&str&":"&Minute(DateTime) case "10" DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月" case else DateTimeFormat=DateTime end select end function %>
程序代码(把yyyy-mm-dd格式的日期中的月份和日期转换成两位数字的方法)
dim today
today=Date '避免重复调用Date,所以赋值给一个变量
today=Year(today) & "-" & Right("0" & Month(today),2) & "-" & Right("0" & Day(today),2)
asp中一段自动补位的函数
function formatsn(getnum,getbit) dim formatsnnum,formatsnpre,formatsnj formatsnnum = getbit – len(getnum) for formatsnj = 1 to formatsnnum formatsnpre = formatsnpre & "0" next formatsn = formatsnpre & getnum end function
使用方法
formatsn(getnum,getbit)
getnum 计数
getbit 共几位
以上就是ASP中格式化时间短日期补0变两位长日期的方法的详细内容,更多关于ASP短日期补0的资料请关注其它相关文章!
标签:
ASP短日期补0
极乐门资源网 Design By www.ioogu.com
极乐门资源网
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
极乐门资源网 Design By www.ioogu.com
暂无ASP中格式化时间短日期补0变两位长日期的方法的评论...
更新日志
2024年12月25日
2024年12月25日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]