Generates a random number, integer or long
Function iShuffle(lMinValue As Long, lMaxValue As Long) As integer
Randomize ' Uses system timer to seed the Rnd function
iShuffle = int((lMaxValue +1 - lMinValue) * Rnd + lMinValue)
End Function
Function lShuffle(lMinValue As Long, lMaxValue As Long) As Long
Randomize 'Uses system timer to seed the Rnd function
lShuffle = (lMaxValue - lMinValue) * Rnd + lMinValue
End Function
Randomize ' Uses system timer to seed the Rnd function
iShuffle = int((lMaxValue +1 - lMinValue) * Rnd + lMinValue)
End Function
Function lShuffle(lMinValue As Long, lMaxValue As Long) As Long
Randomize 'Uses system timer to seed the Rnd function
lShuffle = (lMaxValue - lMinValue) * Rnd + lMinValue
End Function
lMinValue, lMaxValue
Views 4,457
Downloads 1,387
CodeID
DB ID