成人视屏在线观看-国产99精品-国产精品1区2区-欧美一级在线观看-国产一区二区日韩-色九九九

您的位置:首頁技術文章
文章詳情頁

ASP中格式化時間短日期補0變兩位長日期的方法

瀏覽:443日期:2022-06-04 18:23:09

因為短日期不足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=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 日期格式轉換函數

<%

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)&"日<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 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中格式化時間短日期補0變兩位長日期的方法的詳細內容,更多關于ASP短日期補0的資料請關注其它相關文章!

標簽: ASP
相關文章:
主站蜘蛛池模板: 亚洲精品高清在线观看 | 特黄特黄aaaa级毛片免费看 | 欧美亚洲在线观看 | 欧美亚洲中日韩中文字幕在线 | 国产三级精品久久三级国专区 | 99精品国产成人一区二区 | 国产性生交xxxxx免费 | 婷婷色九月综合激情丁香 | 中文字幕精品一区二区三区视频 | 91精品国产综合久久久久久 | 美美女高清毛片视频免费观看 | 欧美亚洲国产一区 | 国产一级片免费观看 | 美女张开腿让人桶 | 日韩中文字幕网 | 中文字幕在线播 | 国产特黄特色一级特色大片 | 精品一区二区三区在线视频观看 | 亚洲精品视 | 国产伦一区二区三区四区久久 | 成人观看视频又黄又免费 | 亚洲一区二区在线视频 | 亚洲国产精久久久久久久 | 一级全免费视频播放 | 91伊人影院| 美国三级 | 欧美激情中文字幕 | 毛片网站在线看 | 国产精品2020 | 国产成人综合91精品 | 白嫩美女直冒白浆 | 国产欧美自拍视频 | 国产粗大猛烈18p | 一级黄色毛片免费看 | 亚洲国产欧美目韩成人综合 | 亚洲网站免费看 | 色一情一乱一乱91av | 深夜福利网站在线观看 | 国产成人午夜福在线观看 | 成人三级做爰在线视频 | 亚洲一级理论片 |