Re: eval divide and drop decimals.

[Booth Martin <booth@xxxxxxxxxxxx>]

ok, so i made a mistake.  shoot me.  :)

    eval      TotalFee = Fee * %int((Amount +
                Increment - .01) / Increment)

Thanks Ken, and thanks for everyone's help.  I do love programming - i'm 
not particularly gifted at it, but i do love doing it.

Ken Sims wrote:
> Hi Booth -
>
> > Secondly, Ken's solution looks too simple.
>
> My solution is simple because the whole thing is simple.  It's just custom 
> rounding with a couple extra things tossed in to do the fee calculation.
>
> > Here's what I tried this morning and it seems to work, but it doesn't
> > use the %div bif, which requires whole numbers.
>
> Okay, if %div won't compile with non-integers (I didn't try to compile my 
> code), this should work.  The key is to divide with truncation after adding 
> the custom rounding factor.
>
> fee = 4 * %int( ( amount + 499.99 ) / 500.00 )
>
>   Amount   + 499.99   / 500.00   %int     Fee
>      .00     499.99    0.99998      0     .00
>      .01     500.00    1.00000      1    4.00
>   500.00     999.99    1.99998      1    4.00
>   500.01    1000.00    2.00000      2    8.00
> 1000.00    1499.99    2.99998      2    8.00
> 1001.00    1500.00    3.00000      3   12.00
>
> As you can see, this handles all boundaries cases properly.
>
> Simple, yes, but it actually works properly in a way that is clear if you 
> think about it.
>
> Ken
> http://www.ke9nr.net/
> Opinions expressed are my own and do not necessarily represent the views
> of my employer or anyone in their right mind.