国产成人精品久久免费动漫-国产成人精品天堂-国产成人精品区在线观看-国产成人精品日本-a级毛片无码免费真人-a级毛片毛片免费观看久潮喷

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

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

瀏覽:426日期: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
相關文章:
主站蜘蛛池模板: 欧美一级免费大片 | 精品国产成人高清在线 | 成人国产精品一级毛片视频 | 久久久99精品免费观看 | 日本国产欧美 | 欧美xxx精品 | 中文字幕免费在线视频 | 欧美精品亚洲精品日韩一区 | a毛片在线 | 亚洲欧美高清在线 | 国产一级一级毛片 | 欧美一区二区三区gg高清影视 | 国产一区影视 | 欧美一级专区免费大片俄罗斯 | 亚洲国产一区二区三区a毛片 | 国产欧美日韩综合精品无毒 | 亚洲在线网 | 日本一区二区三区在线 视频观看免费 | 日韩毛片| 欧美 亚洲 在线 | 久久欧美精品 | 一区二区三区四区国产精品 | 日本乱理伦中文三区 | 美国一级毛片免费看成人 | 久久精品国内一区二区三区 | 1024香蕉视频在线播放 | 久久亚洲国产精品一区二区 | 欧美成人免费tv在线播放 | 欧美性视频一区二区三区 | 男女男免费视频网站国产 | 久久久www免费看片 久久久www免费人成看片 | 欧美综合成人网 | 91高清免费国产自产 | 亚洲国产精品自产拍在线播放 | 国产精品二区三区免费播放心 | 亚洲狠狠狠一区二区三区 | 日本免费a级片 | 日韩日b视频 | 日韩欧美一区二区三区不卡视频 | 国产成人免费手机在线观看视频 | 日韩一级免费视频 |