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  .