因为短日期不足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短日期补0
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！
如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
桃源资源网 Design By www.nqtax.com
暂无“ASP中格式化时间短日期补0变两位长日期的方法”评论...
RTX 5090要首发 性能要翻倍！三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB，每个模块容量为2GB。其速度预设为32 Gbps（PAM3），但也可以降至28 Gbps，以提高产量和初始阶段的整体性能和成本效益。
据三星表示，GDDR7内存的能效将提高20%，同时工作电压仅为1.1V，低于标准的1.2V。通过采用更新的封装材料和优化的电路设计，使得在高速运行时的发热量降低，GDDR7的热阻比GDDR6降低了70%。