WinTask - RandReal$

'
' RandReal$(<real number string>)
'
' 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"))