关闭

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

19373人阅读 评论(0) 收藏 举报
分类:
 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.
1
0
查看评论

将数字转为中文金额的大写方式(C++版)

/**   * 程序目的:   *   从命令行接收一个数,并将其转化为中文金额的大写方式(C++版)   * 例如 123.45 --> 壹佰贰拾...
  • u010944926
  • u010944926
  • 2014-03-08 15:57
  • 3254

Java数字金额转换为大写金额

代码:package com.daidai.java.RMB;public class Amount2RMB { public static char[] NUMBER_CHAR = "零壹贰叁肆伍陆柒捌玖".toCharArray(); public static ...
  • daidaineteasy
  • daidaineteasy
  • 2015-09-26 23:18
  • 5819

java 数字转换为汉语中人民币的大写

package com.yunshouhu; import java.math.BigDecimal; /** * 数字转换为汉语中人民币的大写 * http://www.cnblogs.com/hongten/p/hongten_java_money.html * * @autho...
  • earbao
  • earbao
  • 2016-04-19 19:08
  • 3294

大写金额转换成小写

Q:如何将大写金额转换成小写? A:简单点,格式比较严格private float getMoney(string strBig)        ...{   ...
  • jinjazz
  • jinjazz
  • 2007-12-04 19:11
  • 2444

jquery、js 金额小写转成大写

jquery、js 金额小写转成大写,本代码完成了基本的转换,并不是最完整的,可根据需求进行修改,比如是否可以有小数点,(金额小数点也就两位,精确到分)
  • u012402177
  • u012402177
  • 2016-07-29 11:43
  • 1310

数字转换成汉语中人民币的大写(javascript正则)

数字转换成汉语中人民币的大写(javascript正则)
  • qq_15266291
  • qq_15266291
  • 2017-01-22 22:53
  • 366

js数字金额大写转换

/** 数字金额大写转换(可以处理整数,小数,负数) */ var digitUppercase = function(n) { var fraction = ['角', '分']; var digit = [ '零', '壹...
  • kongjiea
  • kongjiea
  • 2014-12-22 12:33
  • 10289

TP5-金钱转换,将小写的金钱数转换成大写格式

function convertMoney($num) { $c1 = "零壹贰叁肆伍陆柒捌玖"; $c2 = "分角元拾佰仟万拾佰仟亿"; $num = round($num, 2); //输入金额四舍五入 $num = $...
  • Wake_me_Up123
  • Wake_me_Up123
  • 2017-11-16 09:54
  • 177

android 金额输入验证(阿拉伯数字转换中文大写)

主要应用了文本框数据校验,数字转换,对话框的一些知识,下面是程序的一些截图和说明              文本框数据校验(只可以输入阿拉伯数字)           ...
  • thealert
  • thealert
  • 2011-07-29 17:08
  • 1621

用JQuery方法,将会计数字转换为大写

最近结了一单任务,编写OA里的差旅费报销。要求将填写的数字按位数逐个填入表单中,并自动转换为中文大写。如下图:1处为传递来的数据,通过JS拆分填入2,再转为大写填入3处. 这里主要介绍“数字转换为大写”。 var money = eStarJQ("#e744"...
  • hlbt0112
  • hlbt0112
  • 2017-06-02 16:03
  • 759
    个人资料
    • 访问:4658950次
    • 积分:65483
    • 等级:
    • 排名:第42名
    • 原创:1755篇
    • 转载:2554篇
    • 译文:101篇
    • 评论:343条
    博客专栏
    最新评论
    微信公众号
      为你推荐最新的博文~更有惊喜等着你