Números aleatorios redondeados.
Hola amigo denciso.. De nuevo te pregunto y espero me puedas ayudar.. Hice una pregunta ..
Bueno hago números aleatorios, pero lo que necesito es que el resultado que me de sea redondeado a una cifra. Ej: el numero aleatorio es 1253 quiero que se aproxime a 1250 o a 1200 o pase a 1300 y así en con cualquier numero que salga aleatoriamente.
Y un experto me dio este código..
Private Function Aleatorio(Minimo As Long, Maximo As Long, AproxIzq As Long, AproxDer As Long) As Long
Nuevo:
Randomize
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
If Aleatorio >= AproxIzq And Aleatorio <= AproxDer Then
If Aleatorio - AproxIzq > AproxDer - Aleatorio Then
Aleatorio = AproxDer
Else
Aleatorio = AproxIzq
End If
Else
GoTo Nuevo
End If
End Function
Pero cuando corro el programa adicionándole, donde se ejecute, me dice que error en "Aleatorio" y me dice que no es un argumento opcional, adjunto lo que coloco adicionalmente, para saber donde esta el error.
Private Sub Command1_Click()
MsgBox Aleatorio(Text6)
End Sub
Espero me puedas colaborar muchas gracias.
Bueno hago números aleatorios, pero lo que necesito es que el resultado que me de sea redondeado a una cifra. Ej: el numero aleatorio es 1253 quiero que se aproxime a 1250 o a 1200 o pase a 1300 y así en con cualquier numero que salga aleatoriamente.
Y un experto me dio este código..
Private Function Aleatorio(Minimo As Long, Maximo As Long, AproxIzq As Long, AproxDer As Long) As Long
Nuevo:
Randomize
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
If Aleatorio >= AproxIzq And Aleatorio <= AproxDer Then
If Aleatorio - AproxIzq > AproxDer - Aleatorio Then
Aleatorio = AproxDer
Else
Aleatorio = AproxIzq
End If
Else
GoTo Nuevo
End If
End Function
Pero cuando corro el programa adicionándole, donde se ejecute, me dice que error en "Aleatorio" y me dice que no es un argumento opcional, adjunto lo que coloco adicionalmente, para saber donde esta el error.
Private Sub Command1_Click()
MsgBox Aleatorio(Text6)
End Sub
Espero me puedas colaborar muchas gracias.
1 Respuesta
Respuesta de denciso
1
Y si le pasas los demás valores que está esperando,
Minimo As Long, Maximo As Long, AproxIzq As Long, AproxDer As Long
El valor mínimo, el máximo, el valor de aproximación a la izquierda y el de la derecha...
Por este tipo de problemas muchas veces no coloco código, dejo que el mismo usuario que pregunta lo fabrique, doy la idea...
Minimo As Long, Maximo As Long, AproxIzq As Long, AproxDer As Long
El valor mínimo, el máximo, el valor de aproximación a la izquierda y el de la derecha...
Por este tipo de problemas muchas veces no coloco código, dejo que el mismo usuario que pregunta lo fabrique, doy la idea...
