Return Multiple Values from a Visual Basic Function
A normal VBA function has a return statement that returns a value to the calling function/subroutine
If you want multiple values to be returned, use reference parameters. The reference parameter represents the same storage location as the argument variable and hence changes made in the function is reflected in the calling function too.
Sub ReturnMultipleValue()
Dim L As Double
Dim B As Double
L = 10
B = 6
Debug.Print L & " " & B
ChangeLengthAndBreadth L, B
Debug.Print L & " " & B
End Sub
The above sub passes the arguments to ChangeLengthAndBreadth function by reference. That is, the storage location is passed to function and the changes made inside the ChangeLengthAndBreadth function is reflected in the main method.
Function ChangeLengthAndBreadth(ByRef Length As Double, ByRef Width As Double)
Length = 1.2 * Length
Width = 1.2 * Width
End Function
Multiple Return Parameters in VBA, Multiple Return Parameters in Visual Basic, Return Multiple Values – VBA Function, VBA Function to return more than one value
Return Multiple ValuesSee also:
Output Parameters in C# (.NET)
How to get the return value from C# program (console application)
Posts
Does it *return* multiple values, or simply *change* multiple values?
ReplyDeleteGood Call, it simply changes multiple values. The second "Function" is not really a function but a Sub.
ReplyDeleteTo make it perform as a function, change it as follows:F
ReplyDeleteunction ChangeLengthAndBreadth(ByRef Length As Double, ByRef Width As Double) As ""
Set osoap = CreateObject("MSSOAP.SoapClient")
ReplyDeleteosoap.ClientProperty("ServerHTTPRequest") = True
osoap.mssoapinit ("http://192.168.2.30:5050/Selling/soap/description?WSDL")
result = osoap.get_customer_debit_balance(CUSTOMERID)'this function return type is float and it is working fine
Dim result1 As object
result1 = osoap.get_customer_balance(1010) 'this function return type is CustomerBalance class object
MsgBox result1
I am running this code and getting invalid procedure or function call error message
when I am using PHP with SOAP and this function returning array but in VB i am getting error.
please help me to fix up this problem and explain me how to get multiple values from a function using VB.