Find Most recent date in array containing dates

[PeasNCarrots]

Here is my code..


Sub TestArray()


Dim test(2)
test(0) = CDate(#4/2/2004#)
test(1) = CDate(#3/3/2005#)
test(2) = CDate(#3/5/2002#)


MsgBox FindMax(test)

End Sub


Function FindMax(A() As Variant) As Variant

Dim Start As Integer, Finish As Integer, i As Integer

Dim max As Variant

Start = LBound(A)
Finsish = UBound(A)
max = A(Start)

For i = Start To Finish
If A(i) > max Then max = A(i)
Next

FindMax = max


End Function

 

[PHV]

Replace this:
Finsish = UBound(A)
By this:
Finish = UBound(A)
And I suggest to add the Option Explicit instruction at top of the Declarations section ...

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[PeasNCarrots]

I can't belive I did not notice that. Must becoming blind.

Thanks. Santa will be very nice to you this year.