检查 TIME 是否经过特定时间范围

Question

我有一个指定的范围：12:00pm 到 12:30pm

如果这些时间在指定范围内，我想在现有分配的时间上增加半小时。

例如，如果任务是从上午 10:00 到下午 1:00 执行的，我想在任务结束时添加 30 分钟，这样任务的结束时间就是下午 1:30

关于如何解决这个问题的任何建议？

编辑 1：

我已经摆弄了几个代码，这是我到目前为止想出的：

Public Function GetAdjEndTime(StartDateTime As Date, EndDateTime As Date) As Date
    Dim StartDate As Date, EndDate As Date, StartTime As Date, EndTime As Date
    StartDate = Application.WorksheetFunction.RoundDown(StartDateTime, 0)
    StartTime = StartDateTime - StartDate
    EndDate = Application.WorksheetFunction.RoundDown(EndDateTime, 0)
    EndTime = EndDateTime - EndDate
    
    If StartTime <= #12:00:00 PM# And EndTime >= #12:30:00 PM# Then
        GetAdjEndTime = EndDate + EndTime + (1 / 48)
    Else
        GetAdjEndTime = EndDate + EndTime
    End If

End Function

您如何考虑边缘情况，例如开始/结束日期不同时会发生什么，确切地从 12:00 开始的任务会发生什么，当工作在 12:15 完成时会发生什么等？

Answer 1

这需要比您提供的更多的设置。但是如果你使用我在这个公式下面的设置，就可以完成这项工作。

=B6+C6+IF(AND(B6<=D$3,(B6+ C6)>C$3),(D$3-C$3),0)

编辑

使用 VBA 也是如此。您需要确保将真实的日期/时间值作为参数提供。

Public Function AdjustedEndTime(ByVal StartDateTime As Date, _
                                ByVal EndDateTime As Date) As Date
    ' 219

    Dim Fun         As Double           ' function return value
    Dim BreakStart  As Double
    Dim BreakTime   As Double
    Dim BreakEnd    As Double
    Dim StartTime   As Double
    
    BreakStart = TimeValue("12:00")
    BreakTime = TimeValue("00:30")
    BreakEnd = BreakStart + BreakTime
    StartTime = CDbl(StartDateTime) - Int(StartDateTime)
    
    ' StartTime can't be within 3 minutes from lunch break
    If (BreakStart - StartTime) < TimeValue("00:03") Then
        EndDateTime = EndDateTime + BreakEnd - StartTime
        StartTime = BreakEnd
    End If
    
    ' add one lunch break per day
    Fun = EndDateTime + CInt(EndDateTime - StartDateTime)
    Fun = Fun + (Abs(StartTime < BreakEnd) * BreakTime)
    
    AdjustedEndTime = CDate(Fun)
End Function

以下是我用于测试的过程。您可能会发现它对相同的目的很有用。

Private Sub Test()
    Dim Dte         As Date
    Dim Duration    As Date
    
    Dte = #3/13/2021 10:15:00 AM#
    Duration = TimeValue("2:00")
    Debug.Print AdjustedEndTime(Dte, Dte + Duration)
End Sub