婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 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實現計算兩個時間差的函數的相關信息資訊供網民參考！
    • 推薦文章
    主站蜘蛛池模板： 道真| 皮山县| 玉屏| 西城区| 休宁县| 嘉黎县| 永嘉县| 乌鲁木齐县| 吴桥县| 旌德县| 濮阳市| 旌德县| 当阳市| 泰来县| 罗定市| 应用必备| 扎囊县| 白沙| 嘉禾县| 宾川县| 昌黎县| 井冈山市| 南昌县| 金乡县| 新昌县| 朝阳县| 山丹县| 宁安市| 烟台市| 泾源县| 宝鸡市| 裕民县| 桦甸市| 安岳县| 吉安市| 东乌珠穆沁旗| 察隅县| 赤水市| 封丘县| 拉萨市| 黄大仙区|