ASP中格式化时间短日期补0变两位长日期的方法
因为短日期不足2位,所以在网页排版的时候,影响美观,下面两个函数可以解决这个问题。
2020-2-7短日期变2020-02-07长日期
FunctionFStime(times) Dimyears,months,days iflen(times)=0thenexitfunction years=year(times) months=right("0"&month(times),2) days=right("0"&day(times),2) times=years&"-"&months&"-"&days FStime=times EndFunction
2020-2-723:37:5短日期变2020-02-0723:37:05长日期
FunctionFLtime(times) Dimyears,months,days,hours,minutes,seconds iflen(times)=0thenexitfunction 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 EndFunction
Pw_Sys日期格式转换函数
<% RemPw_Sys日期格式转换函数 functionDateTimeFormat(DateTime,Format) selectcaseFormat 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)&"日"&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" iflen(hour(DateTime))=1then str="0"&hour(DateTime) else str=hour(DateTime) endif DateTimeFormat=DateTimeFormat(DateTime,1)&""&str&":"&Minute(DateTime) case"10" DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月" caseelse DateTimeFormat=DateTime endselect endfunction %>
程序代码(把yyyy-mm-dd格式的日期中的月份和日期转换成两位数字的方法)
dimtoday
today=Date'避免重复调用Date,所以赋值给一个变量
today=Year(today)&"-"&Right("0"&Month(today),2)&"-"&Right("0"&Day(today),2)
asp中一段自动补位的函数
functionformatsn(getnum,getbit) dimformatsnnum,formatsnpre,formatsnj formatsnnum=getbit–len(getnum) forformatsnj=1toformatsnnum formatsnpre=formatsnpre&"0" next formatsn=formatsnpre&getnum endfunction
使用方法
formatsn(getnum,getbit)
getnum计数
getbit共几位
以上就是ASP中格式化时间短日期补0变两位长日期的方法的详细内容,更多关于ASP短日期补0的资料请关注毛票票其它相关文章!