一个水晶报表的数字转换成中文大写的公式!

原创 2004年09月15日 14:25:00
StringVar x;
StringVar xx := "";
NumberVar z;
NumberVar i;
x := ToText({CL_CFKB.FKJE});
x := Left(x,length(x)-5); //这里所减去的数字,是小数点后面的位数加1的值
                                   //我这里是存储时保留小数点后4 位,所以只能精确到个位。
x := Replace(x,",","");
z := length(x);

for i := z to 1 step -1 do
(
    select i
    case 8 : if(Mid(x,z-i+1,1)<>"0") then xx := Mid(x,z-i+1,1) + "十"
    case 7 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "亿" else xx := xx + "亿"
    case 6 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "仟"
    case 5 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "佰"
    case 4 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "十"
    case 3 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "万" else xx := xx + "万"
    case 2 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "仟"
    case 1 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "佰"
);
xx := Replace(xx,"1","壹");
xx := Replace(xx,"2","贰");
xx := Replace(xx,"3","叁");
xx := Replace(xx,"4","肆");
xx := Replace(xx,"5","伍");
xx := Replace(xx,"6","陆");
xx := Replace(xx,"7","柒");
xx := Replace(xx,"8","捌");
xx := Replace(xx,"9","玖");
    xx + "元整";

水晶报表人民币大写转换函数

 当您需要做一个诸如出入库单的报表时,经常会用到人民币总金额的汇总,并希望打印出来的时候有人民币的大写,所以您需要插入一个sum函数来进行合计,那么合计出来的阿拉伯数字的人民币如何转换成中文大写呢?以...
  • EricLiang
  • EricLiang
  • 2007年10月28日 19:52
  • 2252

[水晶报表]金额转英文大写

源文转载:http://bbs.csdn.net/topics/300021579Function (numbervar Amount) //金额转英文大写,Crystal语法 local ...
  • david_520042
  • david_520042
  • 2015年08月17日 14:31
  • 1353

一个水晶报表的数字转换成中文大写的公式!

StringVar x;StringVar xx := "";NumberVar z;NumberVar i;x := ToText({CL_CFKB.FKJE});x := Left(x,lengt...
  • PPLUNCLE
  • PPLUNCLE
  • 2004年09月15日 14:25
  • 2641

水晶报表数字金额转中文大写

  • 2015年01月07日 23:58
  • 2KB
  • 下载

JS把数字金额转换成中文大写数字的函数

//把数字金额转换成中文大写数字的函数 function num2rmb ($num){ $c1="零壹贰叁肆伍陆柒捌玖"; $c2="分角元拾佰仟万拾佰仟亿"; ...
  • fyq891014
  • fyq891014
  • 2014年12月18日 17:56
  • 2553

java实现将整数转化为中文大写金额

在日常生活中,我们经常会将阿拉伯数字转化为中文大写的情况:"零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖", "拾", "佰", "仟", "万", "...
  • xiaojimanman
  • xiaojimanman
  • 2015年11月02日 11:56
  • 2259

c#经验技巧宝典

  • 2014年12月22日 10:58
  • 5.6MB
  • 下载

【水晶报表函数集】货币转换为中文描述

水晶报表中如何创建和使用函数请参考:【水晶报表内功心法】--公式、函数与运行时总计函数使用Basic语法 ###############################################...
  • babyt
  • babyt
  • 2010年04月20日 22:00
  • 2001

Excel数字小写金额转换汉字大写金额公式的简单设置

_________ Excel数字小写金额转换汉字大写金额公式的简单设置  华能呼伦贝尔能源有限公司 卞学敏 Excel数字小写金额转换汉字大写金额公式在会计工作中是经常应用到的,它能提高工作效...
  • mfkpie
  • mfkpie
  • 2014年05月31日 23:19
  • 17920

JAVA科学计数法,金额数字,转换为中文大写字

java操作金额
  • wangyonglin1123
  • wangyonglin1123
  • 2016年04月28日 13:46
  • 1884
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个水晶报表的数字转换成中文大写的公式!
举报原因:
原因补充:

(最多只允许输入30个字)