Variables .... Warning: floating point variables and operations are not currently supported.charintlong
Const xA = 16598013 Const xC = 12820163 Const xM = 16777216 Const xI = 602453 Dim Seed As Long Private Sub Form_Load() Seed = 327680 End Sub 'simule la Fonction Rnd() Private Function Random() As Single Dim s As Long Dim x As Currency x = CCur(xA) * Seed + xC Seed = x - Int(x / xM) * xM Random = Seed / xM End Function
CCur : Converts expression to a Currency. CCur accepts any numeric or string data that can be expressed as a currency value. The function recognizes the decimal and thousands separators based on locale information on the client computer.
The Currency data type is actually an integer type internally. In use, it is scaled by a factor of 10,000 to give four digits to the right of the decimal point. It permits up to 15 digits to the left of the decimal point, resulting in a range of approximately -922,337,000,000,000 to +922,337,000,000,000. An individual type Currency variable takes up 8 bytes of memory, compared to 4 bytes for Single.
Please enter a valid email to subscribe
We need to confirm your email address.
To complete the subscription, please click the link in the
email we just sent you.
Thank you for subscribing!
via Egeo 16