ASP中格式化时间短日期补0变两位长日期的方法_应用技巧_

 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

 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

<% 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)&"日 "&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 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 %>

 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