Public Function RandomLongWithinRangeFast( _
      ByRef rLower As Long _
    , ByRef rUpper As Long _
    ) As Long    Rnd(-1) = 0.224007
    RandomLongWithinRangeFast(1, MaxLong) = 76978304
    RandomLongWithinRangeFast(1, MaxLong) = 185440256
    RandomLongWithinRangeFast(1, MaxLong) = 352754048
    RandomLongWithinRangeFast(1, 100000) = 17974
    RandomLongWithinRangeFast(1, 100000) = 57321
    RandomLongWithinRangeFast(1, 100000) = 51067Note: The call to the Visual Basic Rnd function in the above example seeds the Visual Basic random number generator so that the sample results can be reproduced. There is generally no need to call the Rnd function within your programs since Entisoft Tools initializes the Visual Basic random number generator once with "Randomize" statement.     RandomLongWithinRange Function
    RandomLongGenerator Function
    Rnd Function (Visual Basic)rLower: The lower limit of the range in which the generated random number will fall. This argument is never modified even though it is passed by-reference. Int(Rnd * (1 + rUpper - rLower) + rLower)Note: Some random Long values may not possibly be generated when the range between vLower and vUpper is very large; the RandomLongWithinRange function handles this case better but is slower.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.