四舍五入与小数截断

原帖地址：http://blog.chinaunix.net/u1/40527/showart.php?id=336723

 

众所周知，SAP的数据基本都是四舍五入的

但是，有些时候就是需要不要四舍五入，直接截断，怎么办？

 

这么办：

REPORT Z_BARRY_TEST_ROUND .

DATA: pp1 TYPE p DECIMALS 3,
      pp2 TYPE p DECIMALS 2,
      pp3 TYPE p DECIMALS 2,
      ii1 TYPE i .
pp1 = '1452.345'.
pp3 = pp1 .
ii1 = 2.
PERFORM noround USING    pp1 ii1
                CHANGING pp2.
WRITE: pp2,pp3.

*&--------------------------------------------------------------------*
*&      Form  noround
*&--------------------------------------------------------------------*
FORM noround USING     p1 i1
             CHANGING  p2.
  DATA: tmpn1(20) TYPE n ,
        tmpn2(20) TYPE n ,
        tmpc1(20) TYPE c .
  tmpc1 = p1.
  SPLIT tmpc1 AT '.' INTO tmpn1 tmpn2.
  CONCATENATE tmpn1 '.' tmpn2+0(i1) INTO tmpc1.
  p2 = tmpc1.
ENDFORM.                    "noround

 

 

或者：

REPORT   z_barry_test.

DATA : p1 TYPE  p DECIMALS  4 .

p1 = '3.456' .

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

WRITE  p1.

 

Sign:

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