VBA日期数组降序排序问题：现有方法低效，求更优解决方案

问题根源 #

你的现有排序函数将日期值转换为字符串（Temp As String）并按字典序比较，而字符串比较会逐字符判断（比如先对比日部分的数字），这才导致排序结果不符合日期的实际先后顺序。

最优解决方案 #

直接基于VBA日期类型的数值特性进行排序即可，无需转换格式或使用临时数组。因为VBA中Date类型本质是双精度浮点数，日期越晚对应的数值越大，直接比较就能得到正确顺序。

修改后的降序排序函数（确保最新日期位于数组上限）如下：

Function SortDatesDescending(ByRef dateArray() As Date)
    Dim i As Integer
    Dim j As Integer
    Dim tempDate As Date
    
    For i = LBound(dateArray) To UBound(dateArray)
        For j = i + 1 To UBound(dateArray)
            ' 降序逻辑：当前日期早于下一个日期时交换位置
            If dateArray(i) < dateArray(j) Then
                tempDate = dateArray(j)
                dateArray(j) = dateArray(i)
                dateArray(i) = tempDate
            End If
        Next j
    Next i
End Function

调用示例 #

修改测试代码调用新函数即可：

Sub sortThisArray()
    Dim vDate() As Date: ReDim vDate(0 To 2)
    vDate(0) = "25.03.2022"
    vDate(1) = "12.04.2022"
    vDate(2) = "14.02.2022"
    Call SortDatesDescending(vDate)
    Stop
End Sub

兼容场景优化 #

如果数组中存在日期格式的字符串而非原生Date类型，可以在比较时显式转换为Date类型，保证判断准确：

If CDate(dateArray(i)) < CDate(dateArray(j)) Then

但如果数组确定仅包含Date类型，直接比较的效率最高，无需额外转换。

内容的提问来源于stack exchange，提问作者smartini