RE: Rounding up to nearest 1000

Don't worry Greg - just give it time, you'll be there next to me.



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx

rpg400-l-bounces@xxxxxxxxxxxx wrote on 11/10/2006 03:05:20 PM:

Ahhhhh,

I feel better now.  I was beginning to feel like the universe didn't
make any sense.

Thanks

|-----Original Message-----
|From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
|On Behalf Of AGlauser@xxxxxxxxxxxx
|Sent: Friday, November 10, 2006 3:01 PM
|To: RPG programming on the AS400 / iSeries
|Subject: RE: Rounding up to nearest 1000
|
|Greg Fleming wrote on 10/11/2006 02:46:38 PM:
|
|> I'm trying that out using my trusty calculator, and I'm not ending up
|> with a round number.
|>
|> Say I want to round 1461 up to the nearest thousand, which would be
|> 2000.
|> So N is 1461 and S = 1000
|>
|> Temp = 1461 + 1000/2
|> Temp = 1461 + 500
|> Temp = 1961
|> Result = (1961/1000) * 1000
|> Result = 1961 ?
|>
|> Did I do something wrong ?
|
|Yes:
|> |I think this has to use 'integer division' to work.
|
|I no longer just _think_ that.  Thanks for confirming :)  When I say
|integer division - I mean that 1961 / 1000 = 1, not 1.961.  That is,
|ignore the remainder.
|
|Therefore:
|> Temp = 1461 + 1000/2
|> Temp = 1461 + 500
|> Temp = 1961
|> Result = (1961/1000) * 1000
|                 = ( 1 ) * 1000
|                 = 1000
|
|
| Temp = 1561 + 1000/2
| Temp = 1561 + 500
| Temp = 2061
| Result = (2061/1000) * 1000
|                 = ( 2 ) * 1000
|                 = 2000
|
|It even works for rounding to values that are not powers of ten.  For
|example, N = 19 and S = 15.
|
|temp = 25 + 15/2
|temp = 25 + (7)      - integer division!
|temp = 32
|result = (32 / 15) * 15
|result = (2) * 15
|resutl = 30
|
|HTH,
|Adam
|
|#######################################################################
####
|##########
|Attention:
|The above message and/or attachment(s) is private and confidential and
is
|intended
|only for the people for which it is addressed. If you are not named in
the
|address
|fields, ignore the contents and delete all the material. Thank you.
Have a
|nice day.
|
|For more information on email virus scanning, security and content
|management, please contact administrator@xxxxxxxxxxxx
|#######################################################################
####
|##########
|--
|This is the RPG programming on the AS400 / iSeries (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.


--
This is the RPG programming on the AS400 / iSeries (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.