因為短日期不足2位，所以在網頁排版的時候，影響美觀，下面兩個函式可以解決這個問題。
2020-2-7短日期 變 2020-02-07長日期
function fstime(times)
dim yeawww.cppcns.comrs,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
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&":"&seconds
end function
pw_sys 日期格式轉換函式
程式設計客棧p;"月"&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"
dat程式設計客棧etwww.cppcns.comimeformat=""&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
%>
程式**（把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,formatsnj
formatsnnum = getbit – len(getnum)
for formatsnj = 1 to formatsnnum
formatsnpre = formatsnpre & "0"
next
formatsn = formatsnpre & getnum
end function
使用方法
formatsn(getnum,getbit)
getnum 計數
getbit 共幾位
asp中格式化時間的函式
該函式作用 按指定引數格式化顯示時間。numformat 1 將時間轉化為yyyy mm dd hh nn格式。numformat 2 將時間轉化為yyyy mm dd格式。numformat 3 將時間轉化為hh nn格式。numformat 4 將時間轉化為yyyy年mm月dd日 hh時nn分格...
ASP中格式化時間的函式
格式化時間 顯示 引數 n flag 1 yyyy mm dd hh mm ss 2 yyyy mm dd 3 hh mm ss 4 yyyy年mm月dd日 5 yyyymmdd 6 mm dd function format time s time,n flag dim y,m,d,h,mi,s ...
格式化時間日期函式
實現以下格式模式 英文可以改為中文 格式模式 說明 d 月中的某一天。一位數的日期沒有前導零。dd 月中的某一天。一位數的日期有乙個前導零。ddd 週中某天的縮寫名稱，定義範圍 sun mon tue wed thu fri sat dddd 週中某天的完整名稱，定義範圍 sunday monday...