两位数字金额转化为大写格式

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/zhongguomao/article/details/50275205
 IV_MONEY ABSIV_MONEY ).
  DATASCR(30TYPE CRES(60TYPE C,FEN(2TYPE .
  DATALEN TYPE IC1 TYPE IC2 TYPE IC3 TYPE IC4 TYPE I.
  DATAD1(1TYPE CD2(1TYPE CD3 TYPE I.
  DATADIGIT(2)  TYPE CWEIGHT(2TYPE C.
  DATARULE1(20TYPE VALUE '零壹贰叁肆伍陆柒捌玖'.
  DATARULE2(30TYPE VALUE '分角元拾佰仟万拾佰仟亿拾佰仟万'.
  SCR IV_MONEY * 100.
  CONDENSE SCR NO-GAPS.
  IF SCR '0'.
    RES '零元'.
  ELSE.
    LEN STRLENSCR ).
    C1 0.
    D1 '0'.
    CLEAR RES.
    DO LEN TIMES.
      C1 C1 + 1.
      C2 LEN C1.
      D2 SCR+C2(1.
      IF D2 '0'.
        D3 0.
      ELSE.
        D3 D2.
      ENDIF.
      DIGIT RULE1+D3(1.
      C3 C1 .
      WEIGHT RULE2+C3(1.
      IF D2 '0'.
        IF C1 3.
          DIGIT ''.
        ELSEIF C1 7.
          DIGIT ''.
          IF LEN > 10 .
            C4 LEN 10.
            IF SCR+C4(4'0000'.
              WEIGHT ''.
            ENDIF.
          ENDIF.
        ELSEIF C1 11.
          DIGIT ''.
        ELSEIF D1 '0'.
          DIGIT ''.
          WEIGHT ''.
        ELSE.
          WEIGHT ''.
        ENDIF.
      ENDIF.
      CONCATENATE DIGIT WEIGHT RES INTO RES .
      D1 D2.
    ENDDO.
  ENDIF.
  LEN STRLENRES 1.
  FEN RES+LEN(1).
  IF FEN <> '分' .
    CONCATENATE RES '整' INTO EV_MONEY.
  ELSE.
    EV_MONEY RES.
  ENDIF.
阅读更多
换一批

没有更多推荐了,返回首页