SAP四舍五入

caoyequn2

我好像也用不了 round
REPORT  Y_ROUNDTEST.

DATA:
   NAMA TYPE P DECIMALS 5 VALUE '3.56485',
   NAMB TYPE P DECIMALS 3.
NAMB  = NAMA.
WRITE : / NAMA , NAMB.

CALL FUNCTION 'ROUND'
  EXPORTING
    DECIMALS            = 3
    INPUT               = NAMA
    SIGN                = ''
  IMPORTING
   OUTPUT              = NAMB
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.

WRITE : / NAMA , NAMB.

运行结果：
3.56485          3.565
3.56485          3.565

DECIMALS            = 3 这句好像一点作用都没有

[ 本帖最后由 caoyequn2 于 2008-6-3 21:46 编辑 ]

ryq0000

楼上不是的已经转了吗？

3.56485          3.565
3.56485          3.565

３位小数是这样的啊

黄金马甲

貌似round 函数没什么用

leemin

form z_get_round  using    l_waerk
                              changing    t_netwr.
  if l_waerk = 'JPY'.
    t_netwr = t_netwr / 1000.
  endif.

  call function 'ROUND'
    exporting
     decimals            = 0
      input               = t_netwr
     sign                = 'X'
   importing
      output              = t_netwr
* EXCEPTIONS
*   INPUT_INVALID       = 1
*   OVERFLOW            = 2
*   TYPE_INVALID        = 3
*   OTHERS              = 4
            .
endform.                    " z_get_round

日元化成 千日元，再四舍五入，
其他货币类型，直接四舍五入。
代码是可以用的。

ruyue318

研究了一下才知道原来应该这样用：

DATA: NAMA TYPE P DECIMALS 5 VALUE '3.56485'.
WRITE : / '转换前 NAMA = ',NAMA LEFT-JUSTIFIED.

CALL FUNCTION 'ROUND'
  EXPORTING
    DECIMALS      = 3
    INPUT         = NAMA
    SIGN          = 'X'
  IMPORTING
    OUTPUT        = NAMA
  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.

WRITE : / '转换后 NAMA = ',NAMA LEFT-JUSTIFIED.

运行结果：


DATA: NAMA TYPE P DECIMALS 5 VALUE '3.56485'.
WRITE : / '转换前 NAMA = ',NAMA LEFT-JUSTIFIED.

CALL FUNCTION 'ROUND'
  EXPORTING
    DECIMALS      = 1
    INPUT         = NAMA
    SIGN          = 'X'
  IMPORTING
    OUTPUT        = NAMA
  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.

WRITE : / '转换后 NAMA = ',NAMA LEFT-JUSTIFIED.


运行结果：


[ 本帖最后由 ruyue318 于 2008-6-4 13:20 编辑 ]

caoyequn2

我终于知道原因了
sign          = 'X'
这里这个'X'是关键

ryq0000

学习

黄金马甲

原帖由 caoyequn2 于 2008-6-4 20:28 发表
我终于知道原因了
sign          = 'X'
这里这个'X'是关键

果然！哈哈，谢谢！

merlinme

记得除法默认有这个功能。

hikarulea

原帖由 ruyue318 于 2008-6-3 18:08 发表
DESCRIBE FIELD INPUT TYPE T.
  IF T NE 'F' AND T NE 'P' AND T NE 'I'.
    MESSAGE E310 WITH 'INPUT' RAISING INPUT_INVALID.
  ENDIF.
这里有问题

是SAP的bug吧。
37里运行时，input的值传进去后，是C型的,没有转换过。