Random number but in increments of X

[gerryR com]

Hi all I'm working on something where a random num is generated between 0 and a user defined number. I need the random numbers to be in increments of 15 instead of 1 e.g. random numbers between 0 and 90 would only be 0 15 30 45 60 75 90 I figure I can do this by generating the random numbers between 1 and 7 for the above example and then substitute: 15 for 1 30 for 2 etc. etc. But just though I'd ask here in case there's an easier way? Appreciate a point in the right direction, rgds gerryR Below is my rand function

Private Function genRand(ByVal intX As Integer) 'Function used to generate a random number between 0 and a given number
Dim intRandNo As Integer
intRandNo = Int(Rnd() * intX)
Return intRandNo
End Function

[Luc Pattyn]

Hi, just generate a random integer within the appropriate bounds, then multiply by the increment you want. :)

Luc Pattyn [Forum Guidelines] [My Articles]

---

Fixturized forever. :confused:

---

[gerryR com]

Doh! Spot on, thanks :)

[Luc Pattyn]

you're welcome. :)

Luc Pattyn [Forum Guidelines] [My Articles]

---

Fixturized forever. :confused:

---