ABAP 四舍五入函数

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

 

查看示例：

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

DATA : dat  TYPE p DECIMALS 9 VALUE '12.5445' ,         dat1 TYPE p DECIMALS 9 .    DATA   dat2 TYPE p DECIMALS 9 VALUE '12.540' .    * 方法一 CALL FUNCTION 'HR_NZ_ROUNDING_DECIMALS'    EXPORTING      value_in                 = dat      conv_dec                 = 2      " 设置保留几位小数    IMPORTING      value_out                = dat1    EXCEPTIONS      no_rounding_required     = 1      decimals_greater_than_10 = 2      rounding_error           = 3      OTHERS                   = 4.    WRITE : / '方法一(保留2位小数)：' . WRITE : / dat, ' => ' ,dat1. WRITE : / '----------------------------------------------------' .    * 方法二 CALL FUNCTION 'ROUND'    EXPORTING      decimals      = 0       " 保留多少位小数      input         = dat2      sign          = '+'     " + 向上取舍 - 向下取舍 （负数也一样）    IMPORTING      output        = dat1    " 输出返回结果    EXCEPTIONS      input_invalid = 1      overflow      = 2      type_invalid  = 3      OTHERS        = 4.    WRITE : / '方法二(保留0位小数)：' . WRITE : / dat2, ' => ' ,dat1. WRITE : / '----------------------------------------------------' .

 

转载于:https://www.cnblogs.com/springzt/p/4320494.html