计算两段时间的时间差

王朝厨房·作者佚名  2007-01-03
窄屏简体版  字體: |||超大  

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

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航