时间戳

首页 > 解决方案 > VB.Net 或 C# 日期范围列表中可能的日期范围

c# - VB.Net 或 C# 日期范围列表中可能的日期范围

问题描述

我想从数据范围列表中获取可能的日期范围。前任：

  1. 低于日期范围（开始日期、结束日期）
    2021-01-01 00:00:00、2021-01-13 23:59:59
    2021-01-07 00:00:00、2021-02-03 23:59:59

将输出 3 个列表如下
2021-01-01 00:00:00, 2021-01-06 23:59:59
2021-01-07 00:00:00, 2021-01-13 23:59:59
2021- 01-14 00:00:00, 2021-02-03 23:59:59

  1. 低于日期范围（开始日期、结束日期）
    2021-01-01 00:00:00、2021-01-13 23:59:59
    2021-01-02 00:00:00、2021-01-03 23:59:59

将输出 3 个列表如下
2021-01-01 00:00:00, 2021-01-01 23:59:59
2021-01-02 00:00:00, 2021-01-03 23:59:59
2021- 01-04 00:00:00, 2021-01-13 23:59:59

  1. 列表中低于 2 个日期范围（开始日期、结束日期）
    2021-01-10 00:00:00、2021-01-30 23:59:59 2021-02-13 00:00:00、2021-02-26
    23 :59:59

如果没有重叠，将输出相同的 2 条记录。

我尝试的是，我得到了每个列表项的开始日期和结束日期。然后对其进行排序，然后创建一个新的列表元组，其中包含列表中的第一个和第二个日期

Dim lstDateRanges As New List(Of Tuple(Of Date, Date))
Dim lstDates As New List(Of Date)
Dim lstNewDateRanges As New List(Of Tuple(Of Date, Date))
lstDateRanges.Add(Tuple.Create(CDate("2021-01-01 00:00:00"), CDate("2021-01-13 23:59:59")))
lstDateRanges.Add(Tuple.Create(CDate("2021-01-02 00:00:00"), CDate("2021-01-03 23:59:59")))

For Each dDate In lstDateRanges
    lstDates.Add(dDate.Item1)
    lstDates.Add(dDate.Item2)
Next

lstDates.Sort()

For i As Int32 = 0 To lstDates.Count - 2
    If lstDates(i) <> lstDates(i + 1) Then 'ignore the same starting and ending dates
        lstNewDateRanges.Add(Tuple.Create(lstDates(i), lstDates(i + 1).Date.AddSeconds(-1)))
    End If
Next

这虽然不能正常工作。我觉得我采取的方法不对。

任何帮助将非常感激。

标签： c#vb.netlinqdate-range

解决方案

Dim lstDateRanges As New List(Of Tuple(Of Date, Date))
        Dim lstDates As New List(Of Date)
        Dim lstNewDateRanges As New List(Of Tuple(Of Date, Date))

        lstDateRanges.Add(Tuple.Create(CDate("2021-01-01"), CDate("2021-01-13")))
        lstDateRanges.Add(Tuple.Create(CDate("2021-01-02"), CDate("2021-01-03")))

        '2nd test scenario
        'lstDateRanges.Add(Tuple.Create(CDate("2021-01-01"), CDate("2021-01-13")))
        'lstDateRanges.Add(Tuple.Create(CDate("2021-01-07"), CDate("2021-02-03")))

        '3nd test scenario
        'lstDateRanges.Add(Tuple.Create(CDate("2021-01-01"), CDate("2021-01-13")))
        'lstDateRanges.Add(Tuple.Create(CDate("2021-01-15"), CDate("2021-02-03")))

        '4nd test scenario
        'lstDateRanges.Add(Tuple.Create(CDate("2021-01-01"), CDate("2021-01-07")))
        'lstDateRanges.Add(Tuple.Create(CDate("2021-01-01"), CDate("2021-01-15")))

        For Each dDate In lstDateRanges
            lstDates.Add(dDate.Item1)
            lstDates.Add(dDate.Item2)
        Next

        lstDates.Sort()
       
        For i As Int32 = 0 To lstDates.Count - 2
            If lstDates(i) <> lstDates(i + 1) Then 'ignore the same starting and ending dates
                lstNewDateRanges.Add(Tuple.Create(lstDates(i).Date, lstDates(i + 1).Date.AddDays(1).AddSeconds(-1)))
            End If
        Next

        For Each newRange In lstNewDateRanges.ToList
            Dim bOverlapAny = False
            For Each oldRange In lstDateRanges
                If DoDateRangesOverlap(newRange.Item1.Date.AddSeconds(1), newRange.Item2.Date.AddSeconds(-1), oldRange.Item1.Date, oldRange.Item2.Date) Then
                    bOverlapAny = True
                    Exit For
                End If
            Next
            If Not bOverlapAny Then lstNewDateRanges.Remove(newRange)
        Next

推荐阅读