0514-86177077

9:00-17:00（工作日）

主页 > 知识库 > asp下用datediff实现计算两个时间差的函数

asp下用datediff实现计算两个时间差的函数
热门标签：电销机器人采购 宿州防封外呼系统平台 友邦互联电销机器人违法吗 外呼系统怎么话费 滴滴地图标注上车点 高质量的电销外呼系统 硅基电话机器人加盟 无营业执照地图标注教学 地图标注还可以做吗
计算两个时间差的函数

'******************************
'||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  



您可能感兴趣的文章:
  • C#计算两个时间差的方法代码分享

标签：雅安 广元 江门 七台河 新余 锡林郭勒盟 儋州 宣城

巨人网络通讯声明：本文标题《asp下用datediff实现计算两个时间差的函数》，本文关键词  asp,下用,datediff,实现,计算,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《asp下用datediff实现计算两个时间差的函数》相关的同类信息！
  • 本页收集关于asp下用datediff实现计算两个时间差的函数的相关信息资讯供网民参考！
    • 推荐文章

    上一篇：asp下最简洁的多重查询的解决方案

    下一篇：asp下实现记录集内随机取记录的代码

    Copyright © 1999-2012 诚信 合法 规范的巨人网络通讯始建于2005年

    苏ICP备15040257号-8

    产品关键词： asp下用datediff实现计算两个时间差的函数 asp,下用,datediff,实现,计算,