Public Function RandomDoubleWithinRange( _ Optional ByVal vLower As Variant _ , Optional ByVal vUpper As Variant _ , Optional ByVal vMaxTries As Variant _ ) As Variant
? Rnd(-1) 0.224007 ? RandomDoubleWithinRange(0, 10) 1.64263945772881 ? RandomDoubleWithinRange(0, 10) 5.10665292422705 ? RandomDoubleWithinRange(0, 10) 6.70221094252112 ? RandomDoubleWithinRange(-100, 100) -81.9635057024926 ? RandomDoubleWithinRange(-100, 100) 81.7261980739441 ? RandomDoubleWithinRange(-100, 100) 24.5903145544456 ? RandomDoubleWithinRange() 2.97827178053297E+286 ? RandomDoubleWithinRange() 7.22218871117141E-113 ? RandomDoubleWithinRange() -6.08308655657523E+174Note: 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.
RandomDoubleWithinExpRange FunctionvLower: The lower limit of the range in which the generated random number will fall. vLower defaults to MinDouble 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 MaxDouble 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.
vMaxTries: The maximum number of tries to generate a random number within the specified range. vMaxTries defaults to 128 if it is missing or Null or cannot be fixed up to a number. Function returns Null if it still cannot generate a random number within the specified range using the alternate method described in the summary.
General Definition:
dblRnd * (vUpper - vLower) + vLower
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.