怎样对时间进行规范处理啊?急死了>0<(没有分了,大家可怜可怜……)

mushroom 2002-01-14 04:37:09
我用了一个a=date()&" "&time()
本机上显示a为'2002-1-14 16:14:29'
放到服务器上成了'02-1-14 下午 03:59:05'
为了得到'2002-1-14 16:14:29'这种格式的数据我对a做了个处理
结果一点效果也没有,疯了。
我的代码如下:
function systemdatetime(x) '时间规范
if instr(1,x,"年")=3 then
x="20"&x
end if
x=replace (x,"年","-")
x=replace (x,"月","-")
x=replace (x,"日","")
x=replace (x,"上午","")
if instr (1,x,"下午")<>0 then
x=replace (x,"下午","")
x=cdate(x)+0.5
end if
x=replace (x,"小时",":")
x=replace (x,"分钟",":")
x=replace (x,"秒","")
systemdatetime=x
end function

b=date()
sysdate=formatdatetime (cdate(b),1)
c=time()
systime=formatdatetime (cdate(c),3)
a=sysdate&" "&systime
a=systemdatetime(a)

...全文
74 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
mushroom 2002-01-17
  • 打赏
  • 举报
回复
问题是页面第一次显示的时候我的function 里的两个if都没有判断,but以后都ok了。
mushroom 2002-01-17
  • 打赏
  • 举报
回复
问题是页面第一次显示的时候我的function 里的两个if都没有判断,but以后都ok了。
wyj770615 2002-01-14
  • 打赏
  • 举报
回复
用该函数处理
Function DateFormatdate(yourDate)
DateFormatdate=Cdate(year(yourDate)&"-"&month(yourDate)&"-"&day(yourDate)&" "&hour(yourDate)&":"&minute(yourdate)&":"&second(yourDate))
End Function
lanying 2002-01-14
  • 打赏
  • 举报
回复
关注
wuxineyou 2002-01-14
  • 打赏
  • 举报
回复
另外:上午下午的问题,也可以用上面的方法,穷举出所有的可能,修改为你自己需要的格式。
wuxineyou 2002-01-14
  • 打赏
  • 举报
回复
<%
x=year(now()) '修改“year(now())”为“02”或“14”,测试一下。
if cint(x)<100 then
if cint(x)<10 then
nowyear=cint("200"&cstr(x))
else
nowyear=cint("19"&cstr(x))
end if
else
nowyear=cint(x)
end if
%>
<%=nowyear%>年<%=month(now())%>月<%=day(now())%>日<%=hour(now())%>时<%=minute(now())%>分。
更智能化的功能,可以自己进一步编写。
主要解决的是,从那年到那年应该规范成什么样的格式。好运!
希偌 2002-01-14
  • 打赏
  • 举报
回复
你用now()函数取时间不就可以了吗!

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧