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

发布时间：2023-09-01 15:05:07 所属栏目：Asp教程来源：

导读：这篇文章主要介绍了ASP中格式化时间短日期补0变两位长日期的方法,需要的朋友可以参考下

因为短日期不足2位，所以在网页排版的时候，影响美观，下面两个函数可以解决这个问题。

2020-2-7短日期变 2020-02-07

这篇文章主要介绍了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=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 共几位

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!