Generer un nombre aleatoire


Commenter

Contenu du snippet

En fait, ce code est très simple, il prend le nombre de secondes depuis une date (ici 31/12/95) et il lui colle à la suite (et non pas en plus) un chiffre aléatoire entre 1 et 1 000 000 donc, normalement, la possibilité pour qu'il y ai 2 fois le même chiffres est casi impossible (vous serez mort avant :) )

Source / Exemple : 


<%
'---------- Generation d'un Numero aleatoire
Function GenereAlea()
		Dim RefreshAlea		'Num Aleatoire
		Dim RefreshSec		'Nb de secondes depuis le 31/12/95
		Dim RefreshNum
		Randomize
		RefreshAlea = Int((1000000 * Rnd) + 1)
		RefreshSec = DateDiff("s", "12/31/95", Now)
		RefreshNum = CStr(RefreshSec) & CStr(RefreshAlea)
		GenereAlea = RefreshNum
End Function
'---------- Fin Fonction Generation d'un Numero aleatoire
%> <br>
Voici un chiffre aléatoire unique : <%=GenereAlea%>

Conclusion :


T'as pensez à jouer au lotto ? bah vas-y reste pas devant ton écran :)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Nix)