Public Function RandomIntegerWithinRange( _ Optional ByVal vLower As Variant _ , Optional ByVal vUpper As Variant _ ) As Variant
Rnd(-1) = 0.224007 RandomIntegerWithinRange() = -30418 RandomIntegerWithinRange() = -27108 RandomIntegerWithinRange() = -22002 RandomIntegerWithinRange(1) = 5890 RandomIntegerWithinRange(1) = 18783 RandomIntegerWithinRange(1) = 16733 RandomIntegerWithinRange(1, 100) = 4 RandomIntegerWithinRange(1, 100) = 41 RandomIntegerWithinRange(1, 100) = 68Note: 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.
RandomIntegerWithinExpRange Function RandomLongWithinRange Function RandomIntegerWithinRangeVerify SubroutinevLower: The lower limit of the range in which the generated random number will fall. vLower defaults to MinInteger if it is missing or Null or cannot be fixed up to a number.
vUpper: The upper limit of the range in which the generated random number will fall. vUpper defaults to MaxInteger if it is missing or Null or cannot be fixed up to a number.
Function returns Null if vLower > (is greater than) vUpper.
Function returns vLower if vLower = (equals) vUpper.
Definition:
CInt(Int(Rnd * (1 + vUpper - vLower) + vLower))
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.