ReverseArray

Reverses order of array.
In other words, the upperbound value of an input array will become the lowerbound value and all other values will re-order themselves accordingly. ReverseArray returns an array.

CodeFunctionName
What is this?

Public

Not Tested

Imported
Private Function ReverseArray(byVal arrayinput)
    Dim i, ubnd
    Dim newarray()
    ubnd = UBound( arrayinput )
    Redim newarray(ubnd)
    For i = 0 to UBound( arrayinput )
        newarray( ubnd - i ) = arrayinput( i )
    Next
    ReverseArray = newarray
End Function

byVal arrayinput

Views 177

Downloads 102

CodeID
DB ID