婷婷综合国产,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實現計算兩個時間差的函數的相關信息資訊供網民參考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推薦文章
    主站蜘蛛池模板: 三原县| 龙口市| 林芝县| 郎溪县| 万宁市| 玛沁县| 鸡西市| 安化县| 镇原县| 邯郸县| 光山县| 安庆市| 蒲江县| 仙居县| 博客| 枣强县| 香格里拉县| 姜堰市| 沾化县| 体育| 蒙自县| 三门峡市| 堆龙德庆县| 光山县| 周至县| 平安县| 武城县| 防城港市| 如东县| 贵港市| 甘泉县| 嘉禾县| 新宁县| 金山区| 保靖县| 探索| 余江县| 来安县| 盐源县| 聂拉木县| 弋阳县|