by zeid (2 Submissions)
Category: Math/Dates
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Fri 6th October 2006
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Random Number depending on time.
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