Joe Strazzere - All Things Quality - WinTask

Joe Strazzere - All Things Quality

Visit my new blog at http://strazzere.blogspot.com/

December 1, 2005 - WinTask - RandReal$

'
' RandReal$()
'
' Author: Joe Strazzere

Function RandReal$(maxreal$)
    Local RandRealint
   Local RandRealrem
   Local work$
   RandRealint=Val(maxreal$)
   RandRealrem=Val(Multiply$(Subtract$(maxreal$,str$(RandRealint)),"1000"))
   RandReal$=Str$(Random(RandRealint))+"."+Str$(Random(RandRealrem))
EndFunction

Msgbox(RandReal$("999.9999"))

<- Last Page :: Next Page ->

About Me

A gathering place for information and ideas about Quality Assurance, Testing, and other useful topics.

Problems cannot be solved by the same level of thinking that created them. - A. Einstein