aspではdatediffで時間差を計算する関数を実現します。

時間差を計算する関数'************************************************************************𞓜Function TimeDiff（sBegin） s End''𞓜本関数は2つの時間の差を計算します。変更せずに直接使用できる'𞓜|著者：マシーンect 2001/10/26'******************************************では、まずユーザーが入力したsBeginとsEndの大きさを判断する必要があります。 TimeDiff（sBegin） sEnd Dim iHourB、 iMinuteB、 iSecondB、 iMini SecondB Dim iHoure、 iMinuteE、 iSecondE iMini SecondE 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）iMini SecondB = 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 + iMini SecondB / 1000 dTimeE = iHoure * 3600 + iMinuteE * 60 + iSecondE + iMini SecondE / 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