09/12/2004, 19:58
|
| | | Fecha de Ingreso: diciembre-2003 Ubicación: Barcelona
Mensajes: 985
Antigüedad: 20 años, 10 meses 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 |