计算机二级VB辅导:计算两段时间的时间差

来源：计算机等级考试发布时间：2012-08-29 计算机等级考试视频评论

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

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。