Get values of an internal variable of a function

[aqif]

I have a simple problem in which I want to get value of variables that run internally to a function. for example look at a simple function which takes MyValue as an input and multiplies it with a random number to return a value

Public Function RandomValue(MyValue As Integer) As Long

Dim intRandom
intRandom = Int(Rnd() * 100)
RandomValue = intRandom * MyValue

End Function

Is there anyway I can get and use the value of intRandom as well? In this case I am looking for something like RandomValue.intRandom


In the above example I can easily calculate value of intRandom by dividing the result with myValue but remember this is just an example to illustrate my problem. My actual function is much more complex. I hope I am making sense here.

 

[MStef]

Try this.
RandomValue = intRandom

 

[CarlM1975]

how about:

Public Function RandomValue(MyValue As Integer) As Long

Dim intRandom
Dim intrandomvalue as double
intRandom = Int(Rnd() * 100)
intrandom=intrandomvalue
RandomValue = intRandom * MyValue

End Function

You should now be able to use me.intrandomvalue to bring through the value of intrandom

 

[chergh]

Why not just divide the value returned by the value you pass to the function?

 

[DCrake]

You need 2 functions

Function RandomInt() As double
  RandomInt = Int(Rnd() * 100)
End Function

Function RandomValue(rInt As Double, MyValue As Integer) As Long
    RandomValue =  rInt * MyValue
End Funtion

Then you can call

X = RandomInt()
Y = 3 ' MyValue
Z = RandomValue(X,Y)

However you could simply do

Z = RandomInt() * Y

 

[aqif]

Why not just divide the value returned by the value you pass to the function?

I have already explained that this is an example and I can easily calculate the Random value based on the output. My real question is that is there anyway to output value of an internal variable running in a function. The only way I can think of right now is to create a temp global variable ans use it to store value of variables that I want to. Only thing is that it is a bit tedious.

I wish there could be a better way

 

[petehilljnr]

Not sure if this is more or less efficient than using a global variable but:

Public Type MyRandoms
    intRandom As Integer
    RandomValue As Long
End Type
 
Sub test()
Dim MyInput As MyRandoms
 
MyInput = RandomValue(3) ' any number
 
Debug.Print MyInput.intRandom
Debug.Print MyInput.RandomValue
End Sub
 
Public Function RandomValue(MyValue As Integer) As MyRandoms
Dim MyTest As MyRandoms
 
MyTest.intRandom = Int(Rnd() * 100)
MyTest.RandomValue = MyTest.intRandom * MyValue
 
RandomValue = MyTest
End Function

 

[petehilljnr]

In fact no - I see what you mean now (after posting) about setting up for every variable you use ...

You might find something you can use in there though..

Pete