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

因为短日期不足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

使用方法

formatsn(getnum,getbit)

getnum 计数
getbit 共几位

以上就是ASP中格式化时间短日期补0变两位长日期的方法的详细内容，更多关于ASP短日期补0的资料请关注其它相关文章！

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！