RANDOM TRA DUE NUMERI

[djlight]

Ciao ragazzi,
ho trovato un codice per avere un numero randomizzato tra due numeri
L'ho adattato alle mie esigenze perchè avevo bisogno di un numero ad 8 cifre e logicamente la funzione cint non supporta....
Cmq quello che mi serve è un numero compreso tra 10000000 e 99999999

Dim Limite
Limite = 99999999
Randomize()
Response.Write left(Cdbl((Limite - 1)*Rnd() + 10000000 ),8)


Vi sembra corretto come codice?
Esiste un tipo longint? e quindi una sua funzione di conversione?
Altrimento lascio il double....

Grazie ciao

[viki1967]

personalizzati questa:

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 

nr_scheda = lcase(genera(91, 48, 8)) '8 = numero cifre di cui è composta