ABAP 四舍五入问题_SAP刘梦_新浪博客

很简单，直接上代码：

REPORT ZLM_SISHEWURU .


DATA lv_input  TYPE p  DECIMALS  2  VALUE  '12.45' .
DATA lv_output  TYPE p  DECIMALS  2 .

CALL  FUNCTION  'ROUND'
   EXPORTING
     decimals       =  0        " 保留多少位小数
     input          = lv_input
     sign           =  'X'      " X 四舍五入   向上取舍 - 向下取舍 （负数也一样）
   IMPORTING
     output         = lv_output     " 输出返回结果
   EXCEPTIONS
    input_invalid  =  1
    overflow       =  2
    type_invalid   =  3
     OTHERS         =  4 .

WRITE : / '四舍五入' .
WRITE : /  'lv_input:'  , lv_input ,  ' -> ' , lv_output  .

"另外，直接用 P类型接收，本身就是四舍五入

DATA : lv_dec0  TYPE p  DECIMALS  0 .
DATA : lv_dec1  TYPE p  DECIMALS  1 .

lv_dec0  = lv_input .
WRITE : /  'lv_dec0:' , lv_input ,  ' -> ' , lv_dec0  .

lv_dec1  = lv_input .

WRITE : /  'lv_dec1:' , lv_input ,  ' -> ' , lv_dec1  .