计算两段时间的时间差
来源:互联网 发布:restful api json例子 编辑:程序博客网 时间:2024/05/01 00:19
在写程序时,很多时候都要用到两个给定时间的时间差,所以特地把这个函数写出来以便以后可以方便的调用:
function GetDoTime(Time1, Time2)
Dim stime
If Time1 > Time2 Then
stime = Time1
Time1 = Time2
Time2 = stime
End If
secondvalue = DateDiff("s", Time1, Time2)
dayvalue = DateDiff("d", Time1, Time2)
hourvalue = Fix((secondvalue - dayvalue * 24 * 3600) / 3600)
If hourvalue < 0 Then dayvalue = dayvalue - 1: hourvalue = 24 + hourvalue
minitevalue = Fix((secondvalue - dayvalue * 24 * 3600 - hourvalue * 3600) / 60)
If minitevalue < 0 Then hourvalue = hourvalue - 1: minitevalue = 60 + minitevalue
secvalue = secondvalue - dayvalue * 24 * 3600 - hourvalue * 3600 - minitevalue * 60
If secvalue < 0 Then minitevalue = minitevalue - 1: secvalue = 60 + secvalue
GetDoTime=dayvalue & "天" & hourvalue & "小时" & minitevalue & "分" & secvalue & "秒"
End function
- 计算两段时间的时间差
- IBM 公司最新的出差安全守则
- RMAN-20004: target database name…
- 【翻译自mos文章】运行utlpwdmg.sql之后报ORA-28003, ORA-20001, ORA-20002, ORA-20003, ORA-20004 错误
- 如何在javascript中传值
- 直接从SQL语句问题贴子数据建表并生成建表语句的存储过程
- 关于CString总结
- 如何提高SQL SERVER的性能
- Delphi多线程下的ADO编程
- 计算两段时间的时间差
- 对错误的态度
- 优化你的计数器
- c#接简单数据库操作类
- 我的应聘总结!
- Microsoft Visual Studio .NET 2003制作安装程序
- javascript表单之间的数据传递!
- MD5算法研究
- 动态的连接到数据库的方法