asp 时间显示 2009-1-1 变成01-01,代码是什么?谢谢了,大神帮忙啊
发布网友
发布时间：2024-10-22 21:27
共2个回答
热心网友
时间：10分钟前
使用自定义函数 从数据库的日期字段直接读取 进行自定义转化 下面这个是 我弄的个函数 '************************************* '函数名：FormatTime '作 用：转化时间 '参 数：stime ---- 时间 ' nflag ---- 转化方式 '返回值：转化后时间 '调 用：FormatTime(now(), 1) '************************************* function FormatTime(stime, nflag) Dim y, m, d, h, mi, s FormatTime = "" if IsDate(stime) = False then Exit Function y = cstr(year(stime)) m = cstr(month(stime)) d = cstr(day(stime)) h = cstr(hour(stime)) mi = cstr(minute(stime)) s = cstr(second(stime)) if len(m) = 1 then m = "0" & m if len(d) = 1 then d = "0" & d if len(h) = 1 then h = "0" & h if len(mi) = 1 then mi = "0" & mi if len(s) = 1 then s = "0" & s select Case nflag Case 1 '格式2009-11-12 11:01:20 FormatTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s Case 2 '格式2009-11-12 11:01 FormatTime = y & "-" & m & "-" & d & " " & h & ":" & mi Case 3 '格式2009-11-12 FormatTime = y & "-" & m & "-" & d Case 4 '格式11-12 FormatTime = m & "-" & d Case 5 '格式11月12日 FormatTime = m & "月" & d & "日" Case 6 '格式2009年11月12日 FormatTime = y & "年" & m & "月" & d & "日" Case 7 '格式20091112110120 FormatTime = y & m & d & h & mi & s end select end function =================== 输出时候 这样就可以了 FormatTime(rs("news_time"),4)
热心网友
时间：4分钟前
<% dt=rs("news_time") if month(dt)>9 then '里面再加个日期的判断 response.write year(dt) & "-" & month(dt) & "-" & day(dt) else '里面再加个日期的判断 response.write year(dt) & "-0" & month(dt) & "-" & day(dt) end if %>&
