vb net 排除两个日期时间之间的时间段

debugcn 发表于 Dev

主意

您好，我是 VB 网络中的日期时间新手，我正在尝试计算产品中某些操作的时间。例如：

starTtime="01.12.2018 07:00" 
endTime ="01.12.2018 15:00"

我有两个没有工作的例子：

Pause1Start="01.12.2018 10:00" Pause1Stop="01.12.2018 10:30"

Pause2Start="01.12.2018 14:00" Pause2Stop="01.12.2018 14:30"

如何计算使用时间？这个例子并不总是，有必要检查两个日期时间之间是否包含暂停时间，或者是否有工作日结束、周末等......所以操作可以在一天内开始并在一天后完成。

我需要知道如何处理这个？

谢谢

米哈乌·图尔钦

试试这个代码。我建议您定义暂停开始和结束的列表，然后遍历它们，检查特定的暂停是否在工作时间内，并将该时间（以秒为单位）添加到变量保持总秒数中：

Sub Main()
    Dim startTime = New DateTime(2018, 11, 1, 7, 0, 0)
    Dim endTime = New DateTime(2018, 11, 1, 17, 0, 0)

    Dim pauseStarts = New List(Of DateTime)
    pauseStarts.Add(New DateTime(2018, 11, 1, 16, 0, 0))
    pauseStarts.Add(New DateTime(2018, 11, 1, 10, 0, 0))
    Dim pauseEnds = New List(Of DateTime)
    ' Add respective pause endings
    pauseEnds.Add(New DateTime(2018, 11, 1, 18, 0, 0))
    pauseEnds.Add(New DateTime(2018, 11, 1, 11, 30, 0))

    Dim pauseSeconds As Long = 0
    For i = 0 To pauseStarts.Count - 1
        If pauseStarts(i) < endTime AndAlso pauseEnds(i) > startTime Then
            ' get the minimum from two times
            Dim starting = If(startTime > pauseStarts(i), startTime, pauseStarts(i))
            ' get maximum from two times
            Dim ending = If(endTime < pauseEnds(i), endTime, pauseEnds(i))
            ' add seconds during pause
            pauseSeconds += (ending - starting).TotalSeconds
        End If
    Next
End Sub

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。