Friday, June 11, 2010

Sgn Function

Dim MyValue, MyReturn
MyValue = 3.653
MyReturn = sgn(MyValue)
MsgBox MyReturn

No comments: