|
-
December 19th, 2007, 03:37 AM
#1
pass array
this function (it's not mine) crashes when array size is very large (> 32768).
Public Function GetArrayMinxMax(arrintArray() As Integer,
intArrayUpperBound As Long) As String
Dim intMin As Integer
Dim intMax As Integer
Dim intLoop As Integer
intMin = 5000
intMax = 0
For intLoop = 0 To intArrayUpperBound
If arrintArray(intLoop) > intMax Then intMax = arrintArray(intLoop)
If arrintArray(intLoop) < intMin Then intMin = arrintArray(intLoop)
Next intLoop
End Function
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote
