Posted By

delm on 04/29/09

Tagged

Versions (?)

Last Edited at 04/29/09 02:15pm

Statistics

Viewed 556 times

Favorited by 1 user(s)

Related snippets

Decimal aleatorio

/ Published in: VB.NET

Retorna un decimal aleatorio entre un mÃnimo y un mÃ¡ximo.

Expand | Embed | Plain Text

Copy this code and paste it in your HTML

Public Shared Function DecimalAleatorio(Optional ByVal maximo As Decimal = Decimal.MaxValue, Optional ByVal minimo As Decimal = Decimal.MinValue) As Decimal
        Dim r As New Random()
        If minimo > maximo Then
            Dim t As Decimal = minimo
            minimo = maximo
            maximo = t
        End If
        lastdecimalvalue = (r.NextDouble() * (maximo - minimo)) + minimo
        Return lastdecimalvalue

Report this snippet Tweet

Comments

Subscribe to comments

Comment:

You need to login to post a comment.