Random number between 2 values 2

[flaviooooo]

Hey,

I'm looking for a way to create a random number between 2 values, for example between 20 and 40.

At the moment I use this code:

Public Function randomvalue(number As Integer)
Dim x As Integer

Randomize    ' Initialize random-number generator.

randomvalue = Int((number * Rnd) + 1)    ' Generate random value between 1 and number.

End Function

But as you can see, the lower limit will always be 1...

I tried this, to no avail:

Public Function randomvalue2(top As Integer, low As Integer)
Dim x As Integer

Randomize    ' Initialize random-number generator.

randomvalue2 = Int((top * Rnd) + low)    ' Generate random value between low and top.

End Function

Any help would be appreciated

 

[oharab]

Try this:

Public Function randomvalue2(top As Integer, low As Integer)
Dim x As Integer

Randomize    ' Initialize random-number generator.

randomvalue2 = Int((top-bottom+1) * Rnd + low)    ' Generate random value between low and top.

End Function

hth

Ben

----------------------------------------------
Ben O'Hara

http://www.RobotParade.co.uk

We could be confused in exactly the same way, but confusion might be like Nulls, and not comparable.

 

[flaviooooo]

Hey Ben, thanks... that works great for integers.

But I wanted to go 1 step further, and do the same for double-numbers and it doesn't seem to work anymore:

I did this code:

Public Function randomvalue_dbl(top As Double, low As Double)
Dim x As Integer

Randomize    ' Initialize random-number generator.

randomvalue_dbl = CDbl((top - low + 1) * Rnd + low) ' Generate random value between low and top.

End Function

and this example:

randomvalue_dbl(49,6400015258789, 49,6309015258789)
gave me 50,4484549583018

Any idea?

 

[PHV]

What about this ?
randomvalue_dbl = (top - low) * Rnd + low

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[flaviooooo]

Like a charm PHV, thanks!