给定一个日期列表，我如何获得过去到今天的最近日期以及将来到今天最近的日期在VB.NET中

Question

我目前使用下面的函数从列表中返回最近的日期约会日期（今天）。我的问题是，该函数返回最近的日期，无论它是过去或今天的日期的未来。如何更改此代码，以便今天之后可以选择返回距离最近的日期和距离最近的日期？这让我很困惑。

非常感谢您的意见。

Function GetNearestDate(ByVal source As IEnumerable(Of DateTime), ByVal target As DateTime) As DateTime 
    Dim result As DateTime = Nothing 
    Dim lowestDifference = TimeSpan.MaxValue 

    For Each _date As DateTime In source 

     If _date >= target Then 
      Continue For 
     End If 

     Dim difference = target - _date 

     If difference < lowestDifference Then 
      lowestDifference = difference 
      result = _date 
     End If 
    Next 

    Return result 
End Function 

Answer 1

似乎是这样的你正在寻找。你只需要能够将某些东西传递给该函数，以便知道你想要什么。我选择了一个明确的枚举。我也更新它以传回可空日期。这应该纠正你的时间问题，但是你需要考虑空返回的值。

Public Enum DateCompare 
    LessThanEqualTo 
    GreaterThanEqualTo 
End Enum 

Public Function GetNearestDate(ByVal source As IEnumerable(Of DateTime), _ 
           ByVal target As DateTime, _ 
           ByVal dt As DateCompare) As Nullable(Of DateTime) 
    Dim result As Nullable(Of DateTime) = Nothing 
    Dim lowestDifference As TimeSpan = TimeSpan.MaxValue 
    Dim difference As TimeSpan 

    For Each _date As DateTime In source 
     If dt = DateCompare.LessThanEqualTo And _date > target Then 
      Continue For 
     ElseIf dt = DateCompare.GreaterThanEqualTo And _date < target Then 
      Continue For 
     End If 

     If target > _date Then 
      difference = target - _date 
     Else 
      difference = _date - target 
     End If 

     If difference < lowestDifference Then 
      lowestDifference = difference 
      result = _date 
     End If 
    Next 

    Return result 
End Function 

Answer 2

希望你可以把它转换成VB.Net。我们的想法是要排序的日期，然后找到定日期的指标，那么以前的日期和下一个日期集合中是

string findNearestAfter(List<DateTime> ld, DateTime t) 
{ 
    ld.Sort(); 

    int index = 0; 
    for (int i = 0; i < ld.Count; i++) 
    { 
     if (ld[i] == t) 
      index = i; 
    } 

    string nearest = ""; 

    if (index < ld.Count) 
     nearest = ld[index + 1].ToString(); 

    return nearest; 
} 

后最近的过去和将来分别

找到最近的日期

发现之前

string findNearestBefore(List<DateTime> ld, DateTime t) 
{ 
    ld.Sort(); 

    int index = 0; 
    for (int i = 0; i < ld.Count; i++) 
    { 
     if (ld[i] == t) 
      index = i; 
    } 

    string nearest = ""; 

    if (index > 0) 
     nearest = ld[index - 1].ToString(); 

    return nearest; 
} 

从上面的图片，挑选任何日期，上一页和下一页是最近的最近日期日期。请注意日期已排序。例如，选择8月15日，那么最近的未来日期是21，最近的过去的日期是12