Nombre aléatoir avec le temps

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 781 fois - Téléchargée 41 fois

Contenu du snippet

Il sagit d'une portion de code pour tirer un nombre aléatoir a partir d'une date et d'une heure précise a savoir celle de l'horloge système.
C'est une méthode comme une autre mais c'est pas la meilleur c'est clair alors bon les critiques constructives oui mais les mecs qui sont juste la pour dire des saloperies et s'exiter pour rien non-merci!!

Source / Exemple :


Dim CurDay As Variant
Dim CurMon As Variant
Dim CurYea As Variant
Dim IntSom As Double
Dim IntRes As Integer
Dim CurTim As Variant
Dim conv   As String
Dim DecHeu As String
Dim DecMin, DecSec As String
Dim cnt As Integer
Dim i As Integer

CurDay = Day(Now)
CurMon = Month(Now)
CurYea = Year(Now) - 2000
CurTim = Time
conv = CStr(CurTim)
DecHeu = Val(Left(conv, 2))
DecMin = Val(Mid(conv, 4, 2))
DecSec = Val(Right(conv, 2))
IntSom = CurDay + CurMon + CurYea + DecHeu + DecMin + DecSec

A voir également

Ajouter un commentaire

Commentaire

cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
-
le terme aléatoire n'a pas sa place...
ce nombre n'est pas aléatoire mais tiré de données existantes...
si on tire un nombre avec ta fonction toutes les secondes, on aura une serie de nombres consecutifs... un nombre aléatoire sera indépendant de tout parametre...
sinon, c'est.... heu... ben c cool comme code, le tout c de trouver des applications.
et je ne t'incendirai pas, car au moins cette source est quelque chose de constructif, et non pas un enieme convertisseur !! ;-)

je dirai donc... a développer pour trouver des applications concretes !

A+ bonne prog !

$hîv@n

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.