计算两段时间的时间差

原创 2003年02月18日 08:48:00

在写程序时,很多时候都要用到两个给定时间的时间差,所以特地把这个函数写出来以便以后可以方便的调用:

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

&#35745;&#31639;&#20004;&#27573;&#26102;&#38388;&#30340;&#26102;&#38388;&#24046;

在写程序时,很多时候都要用到两个给定时间的时间差,所以特地把这个函数写出来以便以后可以方便的调用:function GetDoTime(Time1, Time2)Dim stime    If Tim...
  • hengxin54
  • hengxin54
  • 2003年02月18日 08:48
  • 1069

IBM&nbsp;&#20844;&#21496;&#26368;&#26032;&#30340;&#20986;&#24046;&#23433;&#20840;&#23432;&#21017;

IBM 公司最新的出差安全守则 敬爱的员工们, 防患临街抢夺和偷窃财物这样的犯罪行已经成为了每一位员工必须正视的安全问题, 在广州、深圳和乌鲁木齐已有类似案例发生在我们员工身上。 为了您自身的安全和所...
  • u014506527
  • u014506527
  • 2014年05月04日 10:45
  • 1315

黑客游戏

黑客游戏http://hkyx.myhack58.com/ 第一关:开门,两个人物不一样,点击开门。进入第一关 http://hkyx.myhack58.com/b2.asp 查看源代...
  • cj1112
  • cj1112
  • 2016年03月06日 17:09
  • 604

&#20351;&#29992;C#&#36820;&#22238;&#31995;&#32479;&#29305;&#27530;&#36335;&#24452;

using System;using Microsoft.Win32;namespace SystemPathsApp{ ///  /// Summary description for System...
  • menway
  • menway
  • 2003年05月22日 08:27
  • 705

【翻译自mos文章】运行utlpwdmg.sql之后报ORA-28003, ORA-20001, ORA-20002, ORA-20003, ORA-20004 错误

运行utlpwdmg.sql之后报ORA-28003, ORA-20001, ORA-20002, ORA-20003, ORA-20004 错误。
  • msdnchina
  • msdnchina
  • 2014年07月17日 13:59
  • 4810

Java语言中Timer类&#30340

Java语言中Timer类的简洁用法bear103613 原创 (参与分:31577,专家分:474)发表:2006-02-17 08:18 版本:1.0 阅读:402次所有类型的 Java 应用程序...
  • likecheng
  • likecheng
  • 2017年10月17日 18:13
  • 18

FindBugs使用

FindBugs简介:  FindBugs是一个开源的eclipse 代码检查工具,是一种白盒静态自动化测试工具;  它可以简单高效全面地帮助我们发现程序代码中存在的bug,bad smell...
  • QQ774232122
  • QQ774232122
  • 2016年08月08日 10:30
  • 734

hive执行查询出现:org.apache.hadoop.hive.ql.metadata.HiveException: Hive Runtime Error while processing row

Diagnostic Messages for this Task: Error: java.lang.RuntimeException: org.apache.hadoop.hive.ql.met...
  • wuzhilon88
  • wuzhilon88
  • 2015年10月10日 16:13
  • 8211

Eclipse中Find Bugs插件的学习

findBugs学习小结 今天代码质量再次强调java代码提交SVN前要经过findBugs检查,虽然根据菜单我也基本会有findBugs插件,但为了更全面的学习、更高效的利用,我搜索学习了...
  • chenlia
  • chenlia
  • 2014年07月30日 11:27
  • 5768

SQLServer学习笔记 --- (20008, 'DB-Lib error message 20008, severity 9:\nUnable to open socket\nNet-Li

SQLServer学习笔记 --- (20008, 'DB-Lib error message 20008, severity 9:\nUnable to open socket\nNet-Li...
  • u012965373
  • u012965373
  • 2016年10月10日 17:32
  • 747
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:&#35745;&#31639;&#20004;&#27573;&#26102;&#38388;&#30340;&#26102;&#38388;&#24046;
举报原因:
原因补充:

(最多只允许输入30个字)