手机
当前位置:查字典教程网 >编程开发 >ASP教程 >计算两个时间之差的函数
计算两个时间之差的函数
摘要:'******************************'||FunctionTimeDiff(sBegin,sEnd)'||本函数计...

'******************************

'||FunctionTimeDiff(sBegin,sEnd)

'||本函数计算两个时间的差,可以不用更改直接使用

'||作者:machinecat2001/10/26

'******************************

'******************************

'注:首先需要判断用户输入的sBegin与sEnd之间的大小

'可以通过DataDiff函数获得两者之间的时间差,不需要进行复杂的时间换算

复制代码 代码如下:

FunctionTimeDiff(sBegin,sEnd)

DimiHourB,iMinuteB,iSecondB,iMiniSecondB

DimiHourE,iMinuteE,iSecondE,iMiniSecondE

DimdTimeB,dTimeE,dTimeDiff

DimiHour,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)&"秒"

EndFunction

【计算两个时间之差的函数】相关文章:

用ASP做一个TOP COOL的站内搜索

一个ACCESS数据库访问的类第1/3页

ASP中Web页面间的数据传递方式

asp中设置session过期时间方法总结

asp 删除图片与文件函数

改进一下asp自带的formatNumber函数

一个简单的asp数据库操作类

ASP中字符与数字操作函数总结

ASP跳出本次循环进入下一循环的方法

简单过滤一下广告的代码

精品推荐
分类导航