Nombre aléatoir avec le temps

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 738 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

Commentaires

Commenter la réponse de cs_shivan

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.