RE: Rounding up to nearest 1000

[Alan Shore <AlanShore@xxxxxxxx>]

Greg - this rounding algorithm is for rounding to the nearest whatever.
NOT rounding UP to the nearest whatever.



Alan Shore

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


                                                                       
             "Fleming, Greg                                            
             (ED)"                                                     
             <GFLEMING@evergla                                          To
             desdirect.com>            "RPG programming on the AS400 / 
             Sent by:                  iSeries" <rpg400-l@xxxxxxxxxxxx>
             rpg400-l-bounces@                                          cc
             midrange.com                                              
                                                                   Subject
                                       RE: Rounding up to nearest 1000 
             11/10/2006 02:46                                          
             PM                                                        
                                                                       
                                                                       
             Please respond to                                         
              RPG programming                                          
              on the AS400 /                                           
                  iSeries                                              
             <rpg400-l@midrang                                         
                  e.com>                                               
                                                                       
                                                                       





|The rounding algorithm goes something like this:
|
|Let N be the number to round, S be the scale of the rounding (in this
|example S = 1000)
|1)  temp = N + S/2
|2) result = (temp / S) * S
|
|I think this has to use 'integer division' to work.
|
|This is essentially what the H extender is about - hence the name -
|"(H)alf add".
|
|HTH,
|Adam

Adam,

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 ?

Greg

--
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.