因为短日期不足2位,所以在网页排版的时候,影响美观,下面两个函数可以解决这个问题。
2020-2-7短日期 变 2020-02-07长日期
1
2
3
4
5
6
7
8
9
|
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长日期
1
2
3
4
5
6
7
8
|
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 日期格式转换函数
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
<%
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中一段自动补位的函数
1
2
3
4
5
6
7
8
|
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的资料请关注服务器之家其它相关文章!
原文链接:https://blog.csdn.net/ttpro/article/details/20460907