VB.NET 日期数组处理问题

Question

我在尝试在 Visual Basic .NET 中设置子例程来遍历记录数组并删除日期字段在当前日期之前的所有记录时遇到一些问题。 这是我当前的代码：

Sub FutureDate()
        Dim movefrom As Integer
        For x As Integer = 0 To UBound(notifications)

            If notifications(x).MeetingTime < Now.Date Then  'Finds first current/future date.
                movefrom = x
            End If
        Next
        Dim moveto As Integer = 0
        For x As Integer = movefrom To UBound(notifications) 'Moves dates after this to beginning of array.
            movefrom += 1
            notifications(moveto) = notifications(movefrom)
            moveto += 1
        Next
        ReDim Preserve notifications(moveto)  'Shortens the array to the correct length.
    End Sub

调用此子程序后，程序在消息框中显示数组中的前三个记录（用于调试目的）。但是，当我运行该程序时，消息框永远不会显示。这个子程序肯定是问题所在，因为注释掉调用它的行可以解决问题，并且会出现适当的消息，尽管第一个框包含过去的日期。这是用于通知/即将举行的会议系统，所以我显然不想包含已经过去的日期。

记录已经按日期排序，所以在我看来，这应该执行我想要的操作，即删除具有过去日期的记录，将其他所有内容移动到数组的前面，然后删除末尾的空格记录被移出。然而，我经常在类似的事情上犯愚蠢的错误，所以非常感谢外部的输入。您能提供的任何帮助都会很棒。

谢谢。

Answer 1

这是一句简单的话：

Sub FutureDate()
    notifications = notifications.Where(Function(n) n.MeetingTime < Today).ToArray()
End Sub

但更好的设计是构建一个返回新数组的函数：

Function FutureDate(ByVal items() As MyType) As MyType()
    Return items.Where(Function(n) n.MeetingTime < Today).ToArray()
End Function

更好的是考虑序列而不是数组：

Function FutureDate(ByVal items As IEnumerable(Of MyType)) As IEnumerable(Of MyType)
    Return items.Where(Function(n) n.MeetingTime < Today)
End Function

Answer 2

DateTime[] futureDates = notifications.Where(n => n.MeetingTime > DateTime.Now).Select(n => n.MeetingTime).ToArray();

我认为这应该有效。如果不是，那就非常相似了。这应该只返回晚于“现在”的会议日期。

希望这有帮助。