因為短日期不足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=timesEnd 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&":"&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