× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.