計(jì)算兩個(gè)時(shí)間之差的函數(shù)
更新時(shí)間：2006年08月16日 00:00:00 作者：
'******************************
'||Function TimeDiff(sBegin, sEnd)
'||本函數(shù)計(jì)算兩個(gè)時(shí)間的差，可以不用更改直接使用
'||作者：machinecat 2001/10/26
'******************************
'******************************
'注：首先需要判斷用戶輸入的sBegin與sEnd之間的大小
'可以通過(guò)DataDiff函數(shù)獲得兩者之間的時(shí)間差，不需要進(jìn)行復(fù)雜的時(shí)間換算
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 & "小時(shí)" & iMinute & "分鐘" & iSecond & FormatNumber(iMiniSecond, 3) & "秒"
End Function
'||Function TimeDiff(sBegin, sEnd)
'||本函數(shù)計(jì)算兩個(gè)時(shí)間的差，可以不用更改直接使用
'||作者：machinecat 2001/10/26
'******************************
'******************************
'注：首先需要判斷用戶輸入的sBegin與sEnd之間的大小
'可以通過(guò)DataDiff函數(shù)獲得兩者之間的時(shí)間差，不需要進(jìn)行復(fù)雜的時(shí)間換算
復(fù)制代碼 代碼如下:
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 & "小時(shí)" & iMinute & "分鐘" & iSecond & FormatNumber(iMiniSecond, 3) & "秒"
End Function
相關(guān)文章
ASP網(wǎng)站生成靜態(tài)html頁(yè)面技術(shù)小結(jié)
ASP網(wǎng)站生成靜態(tài)html頁(yè)面技術(shù)小結(jié)...2007-07-07
您還在為空間的FTP不穩(wěn)定而煩惱嗎?現(xiàn)在您只用上傳您的RAR壓縮包,即可!ASP在線解壓/壓縮工具只要幾秒的時(shí)間,解決了網(wǎng)速慢,FTP丟失數(shù)據(jù)的一大難題2018-03-03
好多asp后臺(tái)都提供了一個(gè)可以在線執(zhí)行sql語(yǔ)句的功能，今天看到了，用到了事務(wù)管理，就是出錯(cuò)了就回滾的操作，不錯(cuò)，建議大家看看，以后能用的到2008-03-03
asp的程序能實(shí)現(xiàn)偽靜態(tài)化的方法
asp的程序能實(shí)現(xiàn)偽靜態(tài)化的方法...2007-03-03
根據(jù)MD5算法的特點(diǎn)，我們可以把MD5加密過(guò)程看作是一個(gè)函數(shù)調(diào)用過(guò)程，建議必須做如下方式修改,這樣可以保證一定程度上你的網(wǎng)站用戶和數(shù)據(jù)安全2009-05-05
ASP也使用ORM,給ASP上所有的SQL注入畫上句號(hào)
PS:KJ大牛寫的文章，昨天跟一朋友聊天的時(shí)候提到了ADO的command查詢，我竟然把這個(gè)東西給忘記了，看來(lái)記性真的是太差了，找到了kj大牛的文章，拜讀一下。2008-12-12
TSYS 新聞列表JS調(diào)用下載...2007-01-01
asp水印組件之AspJpeg的結(jié)合代碼實(shí)例
AspJpeg的應(yīng)用 最近在進(jìn)行新的主頁(yè)系統(tǒng)的制作，當(dāng)中用到了ASPJPEG操作，從網(wǎng)上早了些資料2008-01-01
忠網(wǎng)廣告 系統(tǒng) 用到的幾個(gè)函數(shù)
忠網(wǎng)廣告 系統(tǒng) 用到的幾個(gè)函數(shù)...2006-11-11
asp實(shí)現(xiàn)一個(gè)統(tǒng)計(jì)當(dāng)前在線用戶的解決方案
asp實(shí)現(xiàn)一個(gè)統(tǒng)計(jì)當(dāng)前在線用戶的解決方案...2007-11-11