Returns a random Long number between specified limits.
Public Declare Function RNG_Number Lib "diCryptoSys.dll"
(ByVal nLower As Long, ByVal nUpper As Long) As Long
nRandom = RNG_Number(nLower, nUpper)
Long specifying a lower limit.Long specifying an upper limit.
long _stdcall RNG_Number(long lower, long upper);
Long: a random number between nLower and nUpper.
The number returned is an integer selected at random from the set {nLower, ..., nUpper}.
This will generate 10 random numbers in the range between -1 million and +1 million:
Dim i As Integer
For i = 1 To 10
Debug.Print RNG_Number(-1000000, 1000000)
Next
This will generate 8 random bits from {0, 1}:
Dim i As Integer
For i = 1 To 8
Debug.Print RNG_Number(0, 1);
Next
Debug.Print