Quote:
Good idea.

Quote:
Noted and changed.

Quote:
The example on page 70 of the programming guide returns "amount", which is a passed in variable. ???


Erika,

Thanks for your input. Although I didn't notice any anomalies, I have updated the code below to reflect your suggestions.

//########## Begin Custom Rounding Function ##########
Function @cuRnd(Value as double, Places as int) as double

var vNeg as int		//Used to handle Negatives properly
var vStr as string

if Value < 0
	vNeg = -1
else
	vNeg = 1

vStr = @Str(@Abs(Value))

if @Instr(vStr, ".") > 0	//Protects whole numbers when rounding to zero places
	{
	if @Mid(vStr, @Instr(vStr, ".") + Places + 1, 1) >= 5
		vStr = @Str( @TN(vStr) + (1 / @Exp(10, Places)) )
	vStr = @Del(vStr, @Instr(vStr, ".") + Places + 1, 10)
	}

vStr = @Str(@TN(vStr) * vNeg)

Return @TN(vStr)

End Function
//########## End Custom Rounding Function ##########
 

BTW, I have a slightly unrelated question. What is the difference between @ToMoney and @ToNumber? They both return a double, and seem to return the same number of digits after the decimal.

Quote:

I see it now. The difference is that my original code was changing the passed in argument (i.e. Value = ...), where the example on page 70 is just using the argument to make a new value to return to the function.


Also, I would like to make the last few lines a bit more efficient. Would it be correct usage if I changed the last few lines from this:

     vStr = @Str(@TN(vStr) * vNeg)

     Return @TN(vStr)

To this:

     Return @TN(vStr) * vNeg

If so, should I also put parentheses around some of it like this:

     Return (@TN(vStr) * vNeg)

Quote:

Isn't that taken care of when we assign the function itself to a Double? Otherwise, what's the purpose of assigning the type of function? (I hope I don't sound sarcastic - I really want to know.)

I did some testing (trying to break SBasic ) with the following code. Even though I'm returning a string value in the function, the function always gives me an Integer as it is assigned on the first line. Actually, I tried declaring the function as many different types, and it always returned the type that was assigned on the 1st line of the function.

Maybe I just got spoiled with Q&A's forgiveness in this area.

Function @TestAsInt(Value as String) as Int

var vStr as String

vStr = Value

Return vStr

End Function