gpt4 book ai didi

计算两个时间之差的函数

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 25 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章计算两个时间之差的函数由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

'******************************  '||Function TimeDiff(sBegin, sEnd)  '||本函数计算两个时间的差,可以不用更改直接使用  '||作者:machinecat 2001/10/26  '******************************  '******************************  '注:首先需要判断用户输入的sBegin与sEnd之间的大小  '可以通过DataDiff函数获得两者之间的时间差,不需要进行复杂的时间换算 。

复制代码代码如下

Function TimeDiff(sBegin, sEnd)  Dim iHourB, iMinuteB, iSecondB, iMiniSecondB  Dim iHourE, iMinuteE, iSecondE, iMiniSecondE  Dim dTimeB, dTimeE, dTimeDiff  Dim iHour, iMinute, iSecond, iMiniSecond  iHourB = clng(Left(sBegin, 2))  iMinuteB = clng(Mid(sBegin, 4, 2))  iSecondB = clng(Mid(sBegin, 7, 2))  iMiniSecondB = clng(Mid(sBegin, 10, 4))  iHourE = clng(Left(sEnd, 2))  iMinuteE = clng(Mid(sEnd, 4, 2))  iSecondE = clng(Mid(sEnd, 7, 2))  iMiniSecondE = clng(Mid(sEnd, 10, 4))  dTimeB = iHourB * 3600 + iMinuteB * 60 + iSecondB + iMiniSecondB / 1000  dTimeE = iHourE * 3600 + iMinuteE * 60 + iSecondE + iMiniSecondE / 1000  dTimeDiff = dTimeE - dTimeB  iHour = Int(dTimeDiff / 3600)  dTimeDiff = dTimeDiff - iHour * 3600  iMinute = Int(dTimeDiff / 60)  dTimeDiff = dTimeDiff - iMinute * 60  iSecond = Int(dTimeDiff)  dTimeDiff = dTimeDiff - Int(dTimeDiff)  iMiniSecond = dTimeDiff  TimeDiff = iHour & "小时" & iMinute & "分钟" & iSecond & FormatNumber(iMiniSecond, 3) & "秒"  End Function   。

最后此篇关于计算两个时间之差的函数的文章就讲到这里了,如果你想了解更多关于计算两个时间之差的函数的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com