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

分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.csdn.net/jiangjunshow

也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！

                 IV_MONEY  =  ABS ( IV_MONEY  ) .
   DATA : SCR ( 30 )  TYPE  C , RES ( 60 )  TYPE  C ,FEN ( 2 )  TYPE  C  .
   DATA : LEN  TYPE  I , C1  TYPE  I , C2  TYPE  I , C3  TYPE  I , C4  TYPE  I .
   DATA : D1 ( 1 )  TYPE  C , D2 ( 1 )  TYPE  C , D3  TYPE  I .
   DATA : DIGIT ( 2 )   TYPE  C , WEIGHT ( 2 )  TYPE  C .
   DATA : RULE1 ( 20 )  TYPE  C  VALUE  '零壹贰叁肆伍陆柒捌玖' .
   DATA : RULE2 ( 30 )  TYPE  C  VALUE  '分角元拾佰仟万拾佰仟亿拾佰仟万' .
  SCR  = IV_MONEY *  100 .
   CONDENSE SCR  NO -GAPS .
   IF SCR  =  '0' .
    RES  =  '零元' .
   ELSE .
    LEN  =  STRLEN ( SCR  ) .
    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  -  1  )  .
      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  =  STRLEN ( RES  )  -  1 .
  FEN  = RES+LEN ( 1 ) .
   IF FEN <>  '分'  .
     CONCATENATE RES  '整'  INTO EV_MONEY .
   ELSE .
    EV_MONEY  = RES .
   ENDIF .
           

给我老师的人工智能教程打call！http://blog.csdn.net/jiangjunshow