Округление чисел

Gray_

Необходимо округлить переменную типа P до десятков. Нашел функцию ROUND, но что-то не получается ее правильно использовать хотя пример взял отсюда... Подкиньте примерчик пожалуйста.

tav

Передавайте входному параметру DECIMALS отрицательное значение.
В ФМ'е к нему есть описание:

Number decimal places, to which rounding is to be carried out

Negative values are also allowed here:
For positive values count to the right from the decimal point, for negative values, to the left.
E.g.: 1234,1234 rounded to -2 decimal places equals 1200
1234,1234 rounded to 2 decimal places equals 1234,12

LAT

Цитата:

Необходимо округлить переменную типа P до десятков. Нашел функцию ROUND...

Если использование ROUND не принципиально.

Code:

DATA: p TYPE p DECIMALS 7 VALUE '1234.1234'.
DATA: i TYPE i.

WRITE: / p.
i = p / 10.
p = i * 10.
WRITE: / p.

Результат:

Code:

 1.234,1234000
 1.230,0000000

Gray_

LAT: Спасибо Вам. Ваш пример работает и меня устраивает, но хотелось бы разобраться с функцией ROUND.
Я ее вызываю так:

Code:

data:
      n1 type p DECIMALS 2,
      n2 type p DECIMALS 2.

n1 = '125.12'.

call function 'ROUND'
  exporting
    DECIMALS       = -2
    input               = n1
 IMPORTING
   OUTPUT              = n2
 EXCEPTIONS
   INPUT_INVALID       = 1
   OVERFLOW            = 2
   TYPE_INVALID        = 3
   OTHERS              = 4

но в итоге в переменной n2 то же самое число что и в n1. Что я делаю не так?

RA

Code:

CALL FUNCTION 'ROUND'
  EXPORTING
    decimals      = -1 " 
    input         = n1
    sign          = 'X'
  IMPORTING
    output        = n2
  EXCEPTIONS
    input_invalid = 1
    overflow      = 2
    type_invalid  = 3
    OTHERS        = 4.

P.S. См код:
[code]
IF SIGN NE SPACE. "<--!!!
PERFORM ROUNDING USING INPUT SIGN DECIMALS.
ENDIF.
.[code]
*

Gray_

RA: Спасибо теперь буду знать.

Правила форума

Округление чисел

Кто сейчас на конференции