Random Numbers

[The Hobo]

How can I get a random number that's sometimes negative, and sometimes positive?

[chrisjk]

Dim intRnd As Long
 
Randomize
intRnd = Int((999 - -999 + 1) * Rnd + -999)
 
MsgBox intRnd

[jim mcnamara]

I'm not sure chrisjk's code is going to work as is.

Anyway - here's another version

Function num() as integer
   Dim j as single
   dim i as integer
   j = rnd
   if j> .5 then
       i = 1
   else 
       i = -1
   end if
   num = int (rnd*999 +1) * i
End Function

[chrisjk]

certainly does, tried and tested

[da_silvy]

Yes it works, perhaps you should have tested it mcnamara