Re: Rounding up

[James Perkins <jrperkinsjr@xxxxxxxxx>]

Would this work?
x = 1.01;
if (%rem(x : 1) <> 0);
  x = (2 * x) + 1;
else;
  x = (2 * x);
endif;

James R. Perkins


On Fri, Feb 27, 2009 at 14:38, Lance Gillespie <lgillespie@xxxxxxxx> wrote:

> I have a situation where I need my results rounded up if they are not
> exact.
>
> As in:
> 2 * 1.01 = 3
> 2 * 1.50 = 3
> 2 * 1.51 = 4
>
> The source and target numbers are 7,0 and the factor is a constant.
>
> I thought:
>
> target = %dech(source * 1.01) : 7 : 0)
>
> or maybe
>
> target = %dech(source * 1.01) : 9 : 2)
>
> would do it, but no joy.
>
> I suppose I could do the calcs twice with %dec, once to a 7,0 result and
> once to a 9,2 result
> (assuming %dec truncates) and then add one to the 7,0 result if the two are
> not equal, but
> I would rather not.
>
> Is there some way to force these calcs to round up if not exact?
>
> Thanks,
> Lance
>
>
>
>
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.