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

公众号：SAP Technical

本文作者：matinal

原文出处：http://www.cnblogs.com/SAPmatinal/

原文链接：【ABAP系列】SAP ABAP 关于四舍五入算法

 

前言部分

大家可以关注我的公众号，公众号里的排版更好，阅读更舒适。

正文部分

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

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

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

DATA: L_DATA  TYPE P DECIMALS  VALUE '1.456'.
DATA: L_DATA1 TYPE P DECIMALS .

DATA: L_DATA2 TYPE P DECIMALS  VALUE '1.546'.

* 方法一
CALL FUNCTION 'HR_NZ_ROUNDING_DECIMALS'
  EXPORTING
    VALUE_IN                 = L_DATA
    CONV_DEC                 =       " 设置保留几位小数
  IMPORTING
    VALUE_OUT                = L_DATA1
  EXCEPTIONS
    no_rounding_required     =
    decimals_greater_than_10 =
    rounding_error           =
    OTHERS                   = .
WRITE: L_DATA1.

* 方法二
CALL FUNCTION 'ROUND'
  EXPORTING
    DECIMALS      =           " 保留多少位小数
    INPUT         = L_DATA2
    SIGN          = '+'        " + 向上取舍 - 向下取舍 （负数也一样）
  IMPORTING
    OUTPUT        = L_DATA1    " 输出返回结果
  EXCEPTIONS
    input_invalid =
    overflow      =
    type_invalid  =
    OTHERS        = .

WRITE: L_DATA1.