excel - 从excel vba中的数组中查找最高日期

Question

我正在尝试从数组中找出最大值---> FinishDateArray()
但是，MaxDate 值每次都为 0。知道这有什么问题吗？该数组包含日期，我希望找到其中最高的日期。

下面的 for 循环显示该数组确实包含所有值。但是运行内置的 Max 命令并没有给出最大日期。请帮忙。

下面是代码:

For i = 0 To UBound(FinishDateArray)  
    MsgBox i & " Date: " & FinishDateArray(i)  
Next i  
MaxDate = WorksheetFunction.Max(FinishDateArray)

MsgBox "Max Date: " & MaxDate

Answer 1

我也有同样的问题。所以我在网上搜索了答案，但我还没有找到它。我想可能是MS的错误。
相反，我想出了一个解决方案。
这里是。

ReDim CLngArray(UBound(FinishDateArray))

For i = 0 To UBound(FinishDateArray)  
CLngArray(i) = CLng(FinishDateArray(i))  
Next i  
MaxDate = CDate(WorksheetFunction.Max(CLngArray))
MsgBox "Max Date: " & MaxDate