December 1, 2005 - WinTask - AbsReal

'
' AbsReal$ - return the absolute value of a real number
'
' Author: Joe Strazzere

'

Function AbsIntReal$(in$)
    If val(in$) < 0 or val(Multiply$(in$,"10000000000")) < 0 Then
         AbsIntReal$ = Multiply$("-1.0",in$)
    Else
         AbsIntReal$= in$
    EndIf
EndFunction

msgbox("The absolute value of -123.45 is "+AbsIntReal$("-123.45"),0,"AbsIntReal$")