【ABAP系列】SAP ABAP 关于四舍五入算法

developer 2022年03月17日 SAP 218 0

以下为正文

今天有人问我关于四舍五入的算法

其实，SAP提供了函数，没有函数也是可以的

但还是用函数做比较方便，举例如下：

DATA: L_DATA  TYPE P DECIMALS 3 VALUE '1.456'. 
DATA: L_DATA1 TYPE P DECIMALS 3. 
  
DATA: L_DATA2 TYPE P DECIMALS 3 VALUE '1.546'. 
  
* 方法一 
CALL FUNCTION 'HR_NZ_ROUNDING_DECIMALS' 
  EXPORTING 
    VALUE_IN                 = L_DATA 
    CONV_DEC                 = 1      " 设置保留几位小数 
  IMPORTING 
    VALUE_OUT                = L_DATA1 
  EXCEPTIONS 
    no_rounding_required     = 1 
    decimals_greater_than_10 = 2 
    rounding_error           = 3 
    OTHERS                   = 4. 
WRITE: L_DATA1. 
  
* 方法二 
CALL FUNCTION 'ROUND' 
  EXPORTING 
    DECIMALS      = 0          " 保留多少位小数 
    INPUT         = L_DATA2 
    SIGN          = '+'        " + 向上取舍 - 向下取舍 （负数也一样） 
  IMPORTING 
    OUTPUT        = L_DATA1    " 输出返回结果 
  EXCEPTIONS 
    input_invalid = 1 
    overflow      = 2 
    type_invalid  = 3 
    OTHERS        = 4. 
  
WRITE: L_DATA1.