当前位置:编程问答 > asp >

asp 时间转换问题

问题:如果开始时间是12:20 结束时间是15:35 那么,如何输出时间差是3:15
答案:<%
Dim time1,time2 '时间1,2,及相差秒数
time1=CDate("12:20:15") '也可以用cdate("2012-9-8 12:20:30")
time2=CDate("15:35:12") '也可以用cdate("2012-9-8 15:35:30")
Response.write time1 & "至" & time2  & "  (" & CDate(getTimeDiff(time1,time2)) & ")" '12:20:15至15:35:12 (3:14:57)

 
 
'取得两个时间的差函数
Function getTimeDiff(t1,t2)
 Dim rax '定义一个比例的变理
 dim LessZero,tempStr 
 Dim hour,minute,second,seconds '时分秒变量及相差秒数
 rax= 60
 seconds = datediff("s",t1,t2) '统计两个时间相差的秒数
 If seconds<0 Then LessZero="-"
 seconds = Abs(seconds)
 hour=int(seconds/(rax*rax)) '取得小时
 minute=int((seconds Mod rax*rax)/rax) '取得分钟
 second=seconds Mod rax '取得秒数
 tempStr = tempStr & LessZero
 If hour<>0 Then tempStr = tempStr & hour
 If minute<>0 Then tempStr =  tempStr & ":" &  minute 
 If second<>0 Then tempStr =  tempStr & ":" &  second 
 getTimeDiff = tempStr
End Function 

 
%>
其他:你看一下。
<%
Response.Write(SplitTime(DateDiff("s",now(),DateAdd("s",5456,now()))))
function   SplitTime(secondTime) 
HourTime=int(secondTime/3600) 
MinuteTime=int((secondTime   mod   3600)/60) 
SecondTime=(secondTime   mod   3600)   mod   60 
if   len(MinuteTime) <2   then   MinuteTime= "0 "&   MinuteTime   end   if 
if   len(SecondTime) <2   then   SecondTime= "0 "&   SecondTime   end   if 
SplitTime=HourTime& ":"&MinuteTime& ":"&SecondTime 
end   function 
%>
输出为:1:30:56 

上一个:ASP怎么直接设置显示大小分类?
下一个:asp.net中运行页面时提示错误为:用户代码未处理Oledbexception 还有是:至少一个参数没有被指定

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,