09-dic-2004, 18:58
|
#36 (permalink)
|
Fecha de Ingreso: diciembre-2003
Ubicación: Barcelona
Mensajes: 902
|
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
|
|
|