09/12/2004, 19:58
|
 | | | Fecha de Ingreso: diciembre-2003 Ubicación: Barcelona
Mensajes: 985
Antigüedad: 21 años Puntos: 6 | |
| Aquí pongo mi pequeña aportación:
Genera un código aleatorio de 40 caracteres, números y letras.
***********************************************
Function Codigo_Aleatorio
Dim confirmado, valor
randomize
For I = 1 to 40
confirmado = Int((90 - 48 + 1) * Rnd + 48)
valor = valor & chr(confirmado)
next
Codigo_Aleatorio = valor
End Function
***********************************************
Para que genere más solo teneis que incrementar el valor del for por el número que quieras.
Saludos a tod@s |