ASP中怎样格式化输出时间
3个回答
展开全部
Function format_Date(Byval t,Byval ftype)
dim y, m, d, h, mi, s
format_Date=""
If IsDate(t)=False Then Exit Function
y=cstr(year(t))
m=cstr(month(t))
If len(m)=1 Then m="0" & m
d=cstr(day(t))
If len(d)=1 Then d="0" & d
h = cstr(hour(t))
If len(h)=1 Then h="0" & h
mi = cstr(minute(t))
If len(mi)=1 Then mi="0" & mi
s = cstr(second(t))
If len(s)=1 Then s="0" & s
select case cint(ftype)
case 1
' yyyy-mm-dd
format_Date=y & "-" & m & "-" & d
case 2
' yy-mm-dd
format_Date=right(y,2) & "-" & m & "-" & d
case 3
' mm-dd
format_Date=m & "-" & d
case 4
' yyyy-mm-dd hh:mm:ss
format_Date=y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
case 5
' hh:mm:ss
format_Date=h & ":" & mi & ":" & s
case 6
' yyyy年mm月dd日
format_Date=y & "年" & m & "月" & d & "日"
case 7
' yyyymmdd
format_Date=y & m & d
case 8
'yyyymmddhhmmss
format_Date=y & m & d & h & mi & s
end select
End Function
使用这个函数
dim y, m, d, h, mi, s
format_Date=""
If IsDate(t)=False Then Exit Function
y=cstr(year(t))
m=cstr(month(t))
If len(m)=1 Then m="0" & m
d=cstr(day(t))
If len(d)=1 Then d="0" & d
h = cstr(hour(t))
If len(h)=1 Then h="0" & h
mi = cstr(minute(t))
If len(mi)=1 Then mi="0" & mi
s = cstr(second(t))
If len(s)=1 Then s="0" & s
select case cint(ftype)
case 1
' yyyy-mm-dd
format_Date=y & "-" & m & "-" & d
case 2
' yy-mm-dd
format_Date=right(y,2) & "-" & m & "-" & d
case 3
' mm-dd
format_Date=m & "-" & d
case 4
' yyyy-mm-dd hh:mm:ss
format_Date=y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
case 5
' hh:mm:ss
format_Date=h & ":" & mi & ":" & s
case 6
' yyyy年mm月dd日
format_Date=y & "年" & m & "月" & d & "日"
case 7
' yyyymmdd
format_Date=y & m & d
case 8
'yyyymmddhhmmss
format_Date=y & m & d & h & mi & s
end select
End Function
使用这个函数
展开全部
对日期及时间进行格式化输出。
NamedFormat的值
日期格式常数
常数 值 描述
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
自己写一个过程,格式化的时候调用下就好了,网站也有很多可以找找
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询