ASP中格式化时间短日期补0变两位长日期的方法

因为短日期不足2位，所以在网页排版的时候，影响美观，下面两个函数可以解决这个问题。

2020-2-7短日期变 2020-02-07长日期

Function FStime(times)Dim years,months,daysif len(times)=0 then exit functionyears=year(times)months=right(\"0\"&month(times),2)days=right(\"0\"&day(times),2)times=years&\"-\"&months&\"-\"&daysFStime=timesEnd Function

2020-2-7 23:37:5短日期变 2020-02-07 23:37:05长日期

Function FLtime(times)Dim years,months,days,hours,minutes,secondsif len(times)=0 then exit functionyears=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 日期格式转换函数

<%Rem Pw_Sys 日期格式转换函数function DateTimeFormat(DateTime,Format)select case Formatcase \"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 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中一段自动补位的函数

function formatsn(getnum,getbit)dim formatsnnum,formatsnpre,formatsnjformatsnnum = getbit – len(getnum)for formatsnj = 1 to formatsnnumformatsnpre = formatsnpre & \"0\"nextformatsn = formatsnpre & getnumend function

使用方法