Funzione genera codice numerico

[Enrique_Rojas]

Ciao a tutti; ho questa funzione che genera un codice solo numerico.
Succede, però, che a volte questo codice genera una cifra a 10 numeri (normalmente è a 8 cifre) e quando la cifra è da 10 numeri lo script va in errore.

Ma non dovrebbero solo 5 i numeri di cui deve essere composta la cifra?:

Function genera(Max, Min, MaxChar) 
	Dim codice, cifra
	For i = 1 To MaxChar 
		Randomize timer
		codice = Int((Max * Rnd()) + 1) 
		cifra = cifra & codice
	Next 
	genera = cifra
End Function 

temp_file = lcase(genera(91, 48, 5)) '5 = numero caratteri di cui è composta

:master:

[santino83]

perchè lui prende numeri che vanno da 1 a Max ad ogni passaggio, quindi quando prende un numero >10 superi le 8 cifre

non fai prima a fare

randomize

Max=99999999
codice=int((Max * Rnd()) + 1)

e hai un numero da 1 a 999999999 ?

[Enrique_Rojas]

grazie, ma mi servirebbe max di otto cifre...

[Roby_72]

[Roby_72]

E allora non dargli tutto il firmamento dei caratteri

genera(91, 48, 5))

da 48 a 91 ma da 48 a 57.

Roby

[Enrique_Rojas]

Originariamente inviato da Roby_72
E allora non dargli tutto il firmamento dei caratteri

genera(91, 48, 5))

da 48 a 91 ma da 48 a 57.

Roby

scusa non capisco...

[Roby_72]

genera(57, 48, 5))

Roby