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.
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
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 139
Downloads 63
CodeID
DB ID
