• Home
 · 
• Math/Dates
 · 
• Random Number depending on time.

Random Number depending on time.

Random Number depending on time.

Rate Random Number depending on time.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim x As Integer
Dim s As String
s = Time() 'to make the time as a string.

If InStr(7, s, "01") Then 'if the seconds are.
x = 1 * 5000 + 101 + 22 + 3
txt1 = x

End If
End Sub