数字千分位逗号隔开

最新推荐文章于 2025-04-02 10:51:59 发布

Vince Chang

最新推荐文章于 2025-04-02 10:51:59 发布

阅读量5.4k

点赞数 1

CC 4.0 BY-SA版权

分类专栏：日志

本文链接：https://blog.youkuaiyun.com/zeewjj/article/details/8673244

日志专栏收录该内容

70 篇文章

订阅专栏

FUNCTION Z02FI_NUMBER_SPLIT.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_NUM) TYPE  STRING
*"  EXPORTING
*"     REFERENCE(E_NUM) TYPE  STRING
*"----------------------------------------------------------------------

  DATA:L_STR1 TYPE STRING.
  DATA:L_STR2 TYPE STRING.

  DATA: L_LEN TYPE I,
        L_COUNT TYPE I,
        L_CHAR TYPE STRING,
        L_POS TYPE I,
        L_REST TYPE I,
        L_TIME TYPE I,
        L_FLAG.
  CONSTANTS: C_TAB VALUE ',',
             C_POT VALUE '.'.

  CLEAR:
        L_LEN,
        L_COUNT,
        L_CHAR,
        L_POS,
        L_REST,
        L_TIME,
        L_STR1,
        L_STR2,
        L_FLAG.

  CHECK I_NUM IS NOT INITIAL.
  IF I_NUM CS C_POT.
    SPLIT I_NUM AT C_POT INTO L_STR1 L_STR2.
    L_FLAG = 'X'.
  ELSE.
    L_STR1 = I_NUM.
  ENDIF.

  L_LEN = STRLEN( L_STR1 ).
  L_COUNT = L_LEN.
  L_REST = L_LEN MOD 3.
  IF L_REST = 0.
    L_TIME = L_LEN DIV 3.
  ELSE.
    L_TIME = L_LEN DIV 3 + 1.
  ENDIF.
  DO L_TIME TIMES.
    L_COUNT = L_COUNT - 3.
    IF L_COUNT > 0.
      CONCATENATE C_TAB L_STR1+L_COUNT(3) L_CHAR INTO L_CHAR.
    ELSEIF L_COUNT <= 0.
      L_COUNT = L_COUNT + 3.
      CONCATENATE L_STR1+0(L_COUNT) L_CHAR INTO L_CHAR.
      EXIT.
    ENDIF.
  ENDDO.

  E_NUM = L_CHAR.
  CONDENSE E_NUM NO-GAPS.
  IF L_FLAG IS NOT INITIAL.
    CONCATENATE E_NUM C_POT L_STR2 INTO E_NUM.
  ENDIF.

ENDFUNCTION.