abap四舍五入函数,从小数点最后一位进位

ABAP 中处理数据的函数方法很多，其中涉及到四舍五入的有两个（可能还有更多）：ROUND 和 HR_NZ_ROUNDING_DECIMALS
前者位于Basis功能开发包 SZME 里面，在标准中用于计量单位的计算；
后者主要用于HR模块，位于 PB43 开发包，处理HR模块中的主数据。

HR_NZ_ROUNDING_DECIMALS 函数可以直接输入数值，然后在 CONV_DEC 参数中输入需要保留的小数点即可输出。
ROUND 函数则有点灵活，可以通过 SIGN 参数( ‘+’，’-’ )控制向上取舍，或者向下取舍。

例如：
输入 88.54350 ，如果SIGN = ‘+’ ，保留2位小数，会得到: 88.55000；如果 SIGN = ‘-’，会得到：88.54000
输入 -88.54350，如果SIGN = ‘+’ ，保留2位小数，会得到: -88.54000；如果 SIGN = ‘-’，会得到：-88.55000

程序代码：

1. DATA : dat  TYPE p DECIMALS 9 VALUE '12.5445' ,
   
2.        dat1 TYPE p DECIMALS 9 .
   
3. 
   
4. DATA   dat2 TYPE p DECIMALS 9 VALUE '12.540'.
   
5. 
   
6. * 方法一
   
7. CALL FUNCTION 'HR_NZ_ROUNDING_DECIMALS'
   
8.   EXPORTING
   
9.     value_in                 = dat
   
10.     conv_dec                 = 2      " 设置保留几位小数,从小数点最后一位进位
    
11.   IMPORTING
    
12.     value_out                = dat1
    
13.   EXCEPTIONS
    
14.     no_rounding_required     = 1
    
15.     decimals_greater_than_10 = 2
    
16.     rounding_error           = 3
    
17.     OTHERS                   = 4.
    
18. 
    
19. WRITE: /'方法一(保留2位小数)：'.
    
20. WRITE: / dat, ' => ' ,dat1.
    
21. WRITE: / '----------------------------------------------------'.
    
22. 
    
23. * 方法二
    
24. CALL FUNCTION 'ROUND'
    
25.   EXPORTING
    
26.     decimals      = 0       " 保留多少位小数
    
27.     input         = dat2
    
28.     sign          = '+'     " + 向上取舍 - 向下取舍 （负数也一样）
    
29.   IMPORTING
    
30.     output        = dat1    " 输出返回结果
    
31.   EXCEPTIONS
    
32.     input_invalid = 1
    
33.     overflow      = 2
    
34.     type_invalid  = 3
    
35.     OTHERS        = 4.
    
36. 
    
37. WRITE: /'方法二(保留0位小数)：'.
    
38. WRITE: / dat2, ' => ' ,dat1.
    
39. WRITE: / '----------------------------------------------------'.

复制代码

执行结果：


相关的小数处理：
abap 向上取整CEIL和向下取整FLOOR