Re: Round to the tenth

What would happen with your example if you started with 200?
Divide by 10 gives you 20,  add  1 gives you 21 multiply by 10 gives you
210.
That is not right.

OrgValue     DIV    10    TempValue
                    MVR        Remainder

Remainder    IFGT   0
                    Eval    NewValue=10*(TempValue + 1)
                    Else
                    Eval    NewValue=10*TempValue
                    EndIf





----- Original Message ----- 
From: "Fisher, Don" <Dfisher@xxxxxxxxxxxxxxxxx>
To: "'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
Sent: Friday, October 22, 2004 2:42 PM
Subject: RE: Round to the tenth


The trouble with that is a number like 21 would be rounded to 20.  I believe
the request was to round to the next higher ten so 21 would round to 30.

I can't think of any way to do this other than:
EVAL TempNumber =
((YourNumber / 10) + 1) * 10

TempNumber would have 0 decimal positions.

Hope that helps.

Donald R. Fisher, III
Project Manager
Roomstore Furniture Company
(804) 784-7600 extension 2124
DFisher@xxxxxxxxxxxxx


<clip>
c  Eval(h)  temp = YourNumber / 10
c  Eval     YourNewNumber = temp * 10
<clip>
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.