如何計算範圍內的小時數？

Question

我有兩個字段，開始時間和結束時間。它們包含時間或日期和時間，如果跨度跨越一個日曆日。

我想知道從下午6點到早上6點之間的起點和終點之間有多少個小時。

目前，我有以下幾點，如果time_finished是在同一天，我得到的小時數，但我正在努力如何得到它的其他情況。

IIf(TimeValue([time_finish])>#6:00:00 PM#,DateDiff('h',#6:00:00 PM#,TimeValue([time_finish])),0) 

Answer 1

我有一箇舊的函數，計算「正常」 workhours工作分鐘：

Public Function ISO_WorkTimeDiff(_ 
    ByVal datDateTimeFrom As Date, _ 
    ByVal datDateTimeTo As Date, _ 
    Optional ByVal booNoHours As Boolean) _ 
    As Long 

' Purpose: Calculate number of working minutes between date/times datDateTimeFrom and datDateTimeTo. 
' Assumes: 5 or 6 working days per week. Weekend is (Saturday and) Sunday. 
' Returns: "Working minutes". Divide by 60 to obtain working hours. 
' Limitation: Does not count for public holidays. 
' 
' May be freely used and distributed. 
' 2001-06-26. Gustav Brock, Cactus Data ApS, Copenhagen 
' 
' If booNoHours is True, time values are ignored. 

    ' Specify begin and end time of daily working hours. 
    Const cdatWorkTimeStart As Date = #8:00:00 AM# 
    Const cdatWorkTimeStop As Date = #4:00:00 PM# 
    Const cbytWorkdaysOfWeek As Byte = 5 

    Dim bytSunday    As Byte 
    Dim intWeekdayDateFrom As Integer 
    Dim intWeekdayDateTo  As Integer 
    Dim datTimeFrom   As Date 
    Dim datTimeTo    As Date 
    Dim lngDays    As Long 
    Dim lngMinutes   As Long 
    Dim lngWorkMinutesDaily As Long 

    ' No special error handling. 
    On Error Resume Next 

    If DateDiff("n", datDateTimeFrom, datDateTimeTo) <= 0 Then 
    ' Nothing to do. Return zero. 
    Else 

    ' Calculate number of daily "working minutes". 
    lngWorkMinutesDaily = DateDiff("n", cdatWorkTimeStart, cdatWorkTimeStop) 

    ' Find ISO weekday for Sunday. 
    bytSunday = Weekday(vbSunday, vbMonday) 

    ' Find weekdays for the dates. 
    intWeekdayDateFrom = Weekday(datDateTimeFrom, vbMonday) 
    intWeekdayDateTo = Weekday(datDateTimeTo, vbMonday) 

    ' Compensate weekdays' value for non-working days (weekends). 
    intWeekdayDateFrom = intWeekdayDateFrom + (intWeekdayDateFrom = bytSunday) 
    intWeekdayDateTo = intWeekdayDateTo + (intWeekdayDateTo = bytSunday) 

    ' Calculate number of working days between the weeks of the two dates. 
    lngDays = (cbytWorkdaysOfWeek * DateDiff("w", datDateTimeFrom, datDateTimeTo, vbMonday, vbFirstFourDays)) 
    ' Add number of working days between the two weekdays, ignoring number of weeks. 
    lngDays = lngDays + intWeekdayDateTo - intWeekdayDateFrom - (cbytWorkdaysOfWeek * (intWeekdayDateTo < intWeekdayDateFrom)) 

    If Not booNoHours = True Then 
     ' Extract begin and stop hour (time) for the working period. 
     datTimeFrom = TimeSerial(Hour(datDateTimeFrom), Minute(datDateTimeFrom), Second(datDateTimeFrom)) 
     datTimeTo = TimeSerial(Hour(datDateTimeTo), Minute(datDateTimeTo), Second(datDateTimeTo)) 
     ' Adjust times before or after daily working hours to boundaries of working hours. 
     If DateDiff("n", datTimeFrom, cdatWorkTimeStart) > 0 Then 
     datTimeFrom = cdatWorkTimeStart 
     ElseIf DateDiff("n", datTimeFrom, cdatWorkTimeStop) < 0 Then 
     datTimeFrom = cdatWorkTimeStop 
     End If 
     If DateDiff("n", datTimeTo, cdatWorkTimeStart) > 0 Then 
     datTimeTo = cdatWorkTimeStart 
     ElseIf DateDiff("n", datTimeTo, cdatWorkTimeStop) < 0 Then 
     datTimeTo = cdatWorkTimeStop 
     End If 

     ' Calculate number of working minutes between the two days, ignoring number of days. 
     lngMinutes = DateDiff("n", datTimeFrom, datTimeTo) 
    End If 

    ' Calculate number of working minutes between the two days using the workday count. 
    lngMinutes = lngMinutes + (lngDays * lngWorkMinutesDaily) 

    End If 

    ISO_WorkTimeDiff = lngMinutes 

End Function 

然而，啓動小時（當然）必須停止小時之前，所以對於你的情況，你需要添加一天穿越午夜：

Const cdatWorkTimeStart As Date = #6:00:00 PM# 
    Const cdatWorkTimeStop As Date = #6:00:00 AM# + 1 

這似乎工作。要通過60獲得一個小時數，除以：

WorkHours = ISO_WorkTimeDiff(DateTimeFrom, DateTimeTo)/60 

或爲一個整數數四捨五入：

WorkHours = ISO_WorkTimeDiff(DateTimeFrom, DateTimeTo) \ 60