因为短日期不足2位，所以在网页排版的时候，影响美观，下面两个函数可以解决这个问题。
2020-2-7短日期 变 2020-02-07长日期
1 2 3 4 5 6 7 8 9 | 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=timesEnd Function |
2020-2-7 23:37:5短日期 变 2020-02-07 23:37:05长日期
1 2 3 4 5 6 7 8 | 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&":"&secondsEnd Function |
Pw_Sys 日期格式转换函数
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | "&FormatDateTime(DateTime,4)&""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 thenstr="0"&hour(DateTime)elsestr=hour(DateTime)end ifDateTimeFormat=DateTimeFormat(DateTime,1)&" "&str&":"&Minute(DateTime)case "10"DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"case elseDateTimeFormat=DateTimeend selectend function%> |
程序代码（把yyyy-mm-dd格式的日期中的月份和日期转换成两位数字的方法）
dim today
today=Date ‘避免重复调用Date，所以赋值给一个变量
today=Year(today) & “-” & Right(“0” & Month(today),2) & “-” & Right(“0” & Day(today),2)
asp中一段自动补位的函数
1 2 3 4 5 6 7 8 | function formatsn(getnum,getbit)dim formatsnnum,formatsnpre,formatsnjformatsnnum = getbit – len(getnum)for formatsnj = 1 to formatsnnumformatsnpre = formatsnpre & "0"nextformatsn = formatsnpre & getnumend function |
使用方法
formatsn(getnum,getbit)
getnum 计数
getbit 共几位
以上就是ASP中格式化时间短日期补0变两位长日期的方法的详细内容，更多关于ASP短日期补0的资料请关注IT俱乐部其它相关文章！
