Cómo obtener un numero al azar entre 1 y 1000

Hola a todos. Es un placer poder saludarlos. Hoy veremos como obtener un numero al azar entre 1 y 1000. 

Para tal fin, haremos uso de RAND(), el cual devuelve un numero aleatorio entre 0 y 1. La cosa va asi: 


LOCAL lnNumRand, lnNumeroAzar

**--Numero aleatorio
lnNumRand = RAND() * 1000

**--Tomamos la parte entera
lnNumeroAzar = INT(lnNumRand)

**--Mostramos resultado
MESSAGEBOX(lnNumeroAzar)
**--//



Con esto, tomamos solo la parte entera del numero que RAND() devuelve despues de multiplicarlo por 1000. Aqui, podemos decidir el rango hasta donde queremos calcular el numero. Si lo multiplicas por 10, sera entre 0 y 1. Si lo multiplicas por 100 el rango sera de 0 a 100... ya asi sucesivamente.


Bien... esta es solo una pequeña solucion. En el foro de todoexpertos.com han realizado algunas veces esta consulta y he aqui una forma de proceder. No es la única ni la mejor... pero esta bien.


Cualquier duda o comentario para mejorar, es siempre bienvenido.

Un abrazo!
Desde Managua, Nicaragua!
Ravenn :D :D :D