Passing array to a function and returned another array

[jxb]

To all,

I am testing passing an array from a sub to a function which then returns an array.I am having trouble with the indices. The test below doesn't do anything clever. I am only testing passing array()

Thanks
Regards
JXB

'----------------------------------------------
Sub TestingArray()

Dim myvalues()
Dim testarray()
myvalues={0.,0.,0.,0.} ' initialise array
testarray={0.,0.,0.,0.} ' initialise array

'Pass the array testarray() to function ReturnedArray()
'the function ReturnedArray() returns a new array
'which is allocated to array myvalues()

myvalues = ReturnedArray(testarray)

End Sub

Function ReturnedArray(ByRef InputArray() As Object)
Dim myarray() as Double = {10,20,30,40}
ReturnedArray=myarray()
End Function

 

[Andrew Poulsom]

Why As Object? Have a read of this:

Passing And Returning Arrays With Functions

 

[jxb]

Hi Adnrew

Because I originally defined my function as follows

Public Function DoMyArray(ByRef InputArray() As Variant)

and the "compiler" (i.e. the 1/3 party software) I am using returned message about VARIAN no longer being supported and one should use Object!

Thanks for the link
I am now testing on of the test on the provided link
and I keep getting an error
number of indices is less than the number of dimensions of the indexed array
at the line where the function LoadNumbers() is allocated the array

LoadNumbers = ResultArray()

This is the same problem that prompted the original query

Thanks

Regards

JXB

 

[RoryA]

What language are you actually using? Presumably not VBA.

 

[jxb]

I am programming in vb but the "final" cut is run in another software i.e. not Excel
I did all the programming in Excel and it did the job (rather well). I know that there are specific keywords not recognised such as 'debug.print' but that's very easy to fix/replaced