计算两个时间之差的函数_应用技巧

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

时间: 2024-10-28 07:09:35

计算两个时间之差的函数_应用技巧的相关文章

asp下用datediff实现计算两个时间差的函数_应用技巧

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

计算两个时间之差的函数

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

asp下用datediff实现计算两个时间差的函数

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

asp实现计算两个时间内的工作日的函数_应用技巧

<% '****************************** '函数:workdays(date_begin , date_end) '参数:date_begin,开始日期:date_end,结束日期 '作者:阿里西西 '日期:2007/7/15 '描述:计算两个时间内的工作日 '示例:workdays("2007-05-18" , "2007-05-21") '****************************** function workd

用javascript实现计算两个日期的间隔天数_javascript技巧

ASP 里面计算两个时间的差距可以 DateDiff,但 javascript 里面没有,需要手写函数. js 里面居然可以直接 Date1-Date2,而且还是转换为毫秒计算时间差的. 复制代码 代码如下: // 计算两个日期的间隔天数  function DateDiff(sDate1, sDate2){ //sDate1和sDate2是2002-12-18格式   var aDate, oDate1, oDate2, iDays   aDate = sDate1.split("-"

PHP中计算字符串相似度的函数代码_php技巧

similar_text - 计算两个字符串的相似度 int similar_text ( string $first , string $second [, float &$percent ] ) $first 必需.规定要比较的第一个字符串. $second 必需.规定要比较的第二个字符串. $percent 可选.规定供存储百分比相似度的变量名. 两个字符串的相似程度计算依据 Oliver [1993] 的描述进行.注意该实现没有使用 Oliver 虚拟码中的堆栈,但是却进行了递归调用,这

php分割合并两个字符串的函数实例_php技巧

本文实例讲述了php分割合并两个字符串的函数.分享给大家供大家参考.具体实现方法如下: 这里实现把两个字符串进行分割合并,例如str1=aaaa,str2=bbbb,合并后生成abababab /** * Merges two strings in a way that a pattern like ABABAB will be * the result. * * @param string $str1 String A * @param string $str2 String B * @ret

计算php页面运行时间的函数介绍_php技巧

一个计算php页面运行时间的函数. 复制代码 代码如下: <?php/*@ 计算php程序运行时间*/function microtime_float(){list($usec, $sec) = explode(" ", microtime());return ((float)$usec + (float)$sec);}//开始计时,放在头部$starttime = microtime_float();//结束计时,放在最底部$runtime = number_format((m

javascript 计算两个整数的百分比值_javascript技巧

复制代码 代码如下: ///计算两个整数的百分比值 function GetPercent(num, total) { num = parseFloat(num); total = parseFloat(total); if (isNaN(num) || isNaN(total)) { return "-"; } return total <= 0 ? "0%" : (Math.round(num / total * 10000) / 100.00 + &qu