Помогите с округление.

insaf121

Помогите с округлением. Нужно округлять четыре знака после запятой до двух знаков.
Сделал на примере ROUND все хорошо кроме одного но.
По задаче требуется чтобы если была третий знак после запятой был 5 округлял в меньшую сторону.
Т.Е.

Code:

Число до округления:
123.1256
После округления как надо:
123.12
Что делает роунд:
123.13

Кусок округления.

Code:

    CALL FUNCTION 'ROUND'
    EXPORTING
      DECIMALS            = 2
      INPUT               = gt_rpmsm-menge
      SIGN                = 'X'
 IMPORTING
      OUTPUT              = wa_menge
* EXCEPTIONS
*   INPUT_INVALID       = 1
*   OVERFLOW            = 2
*   TYPE_INVALID        = 3
*   OTHERS              = 4
      .
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    gt_rpmsm-menge = wa_menge.

Besa

floor?

insaf121

Он же вроде округляет до целого?

Besa

SIGN = '-'

Besa

Цитата:

SPACE : no rounding (input = output)
'+' : round up
'-' : round down
'X' : commercial rounding

Code:

    CASE iv_sign.
      WHEN '+'.
        cv_input = CEIL( cv_input / lv_10_d ) * lv_10_d.
      WHEN '-'.
        cv_input = FLOOR( cv_input / lv_10_d ) * lv_10_d.

demst

insaf121 написал:

Он же вроде округляет до целого?

* 100 потом / 100 ?

Besa

demst написал(а):

insaf121 написал:

Он же вроде округляет до целого?

* 100 потом / 100 ?

Тогда уж лучше использовать frac для выделения дробной части. :wink:

zsap

Можно вычесть из числа 0,001 и далее тем же round округлять

insaf121

Понятно можно использовать.
Не могу придумать как узнать 3 число после запятой. 5 оно или больше?

insaf121

Решил так тупое решение( просо нужно срочно.

Code:

DATA wa_menge TYPE p DECIMALS 2. "Для подсчета округления Нуриев И.И.
DATA ga_menge(18) TYPE C.
DATA zXy(2) TYPE C.

Code:

   ga_menge = gt_rpmsm-menge.

      ga_menge = FRAC( ga_menge ).
      CONCATENATE ga_menge+16(2)  '' INTO zXy.

      IF zXy = 5.
        gt_rpmsm-menge = FLOOR( gt_rpmsm-menge * 100 ) / 100.
      ELSE.
        CALL FUNCTION 'ROUND'
        EXPORTING
          DECIMALS            = 2
          INPUT               = gt_rpmsm-menge
          SIGN                = 'X'
        IMPORTING
          OUTPUT              = wa_menge
* EXCEPTIONS
*   INPUT_INVALID       = 1
*   OVERFLOW            = 2
*   TYPE_INVALID        = 3
*   OTHERS              = 4
          .
        IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        ENDIF.

        gt_rpmsm-menge = wa_menge.
      ENDIF.

Lafanian

DATA: lv_p1 TYPE p LENGTH 13 DECIMALS 4 VALUE '4123.1256'.
DATA: lv_p2 TYPE p LENGTH 13 DECIMALS 2.

lv_p2 = lv_p1.

IF lv_p2 > lv_p1.
SUBTRACT '0.01' FROM lv_p2. "Убираем округление в большую сторону
ENDIF.

zsap

Lafanian написал(а):

DATA: lv_p1 TYPE p LENGTH 13 DECIMALS 4 VALUE '4123.1256'.
DATA: lv_p2 TYPE p LENGTH 13 DECIMALS 2.

lv_p2 = lv_p1.

IF lv_p2 > lv_p1.
SUBTRACT '0.01' FROM lv_p2. "Убираем округление в большую сторону
ENDIF.

Неправильно. Например, для 3.1266 результат будет 3,12, а должно быть 3,13.
Вот так вроде верно
lv_p2 = lv_p1 - '0.001'.

Lafanian

Я прислал просто пример с убиранием округления, если нужно только для 0.05 - это вырожденный случай, т.к. нужно понять относится ли 0.049 и 0.059 к нему или нет.

DATA: lv_p1 TYPE p LENGTH 13 DECIMALS 4 VALUE '4123.1256'.
DATA: lv_p2 TYPE p LENGTH 13 DECIMALS 2.

lv_p2 = lv_p1.

"Если нужен вырожденный случай, когда 3-я цифра после запятой = 5
DATA: lv_str1 TYPE string.
DATA: lv_str2 TYPE string.
lv_str1 = lv_p1.
SPLIT lv_str1 AT '.' INTO lv_str1 lv_str2.
IF lv_str2+2(1) = '5' AND lv_p2 > lv_p1.
SUBTRACT '0.01' FROM lv_p2. "Убираем округление в большую сторону
ENDIF.

Jelena

Кстати, в этой истории еще надо обратить внимание на включено ли 'fixed point arithmetics'.

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

Помогите с округление.

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