水晶报表中将数字金额转换为大写公式

最新推荐文章于 2015-08-17 14:31:26 发布
最新推荐文章于 2015-08-17 14:31:26 发布
阅读量454 收藏
点赞数
原文链接：http://www.cnblogs.com/gaomq/archive/2012/07/02/cryscript.html
版权

版本一：这种金额大写忽略不同进度间的零的显示，显示效果如：二十万九百一元四角整(200901.40)

StringVar x;
StringVar xx :="";
NumberVar z;
NumberVar i;
x := ToText(Sum ({@@AMOUNT}));
x := Replace(x,",","");
x := Replace(x,".","");
z := length(x)-2;

for i := z to -1 step -1do
(
    select i
    case10 : if(Mid(x,z-i+1,1) <>"0") then xx := Mid(x,z-i+1,1) +"十"
    case9 : if(Mid(x,z-i+1,1) <>"0") then xx := xx + Mid(x,z-i+1,1) +"亿"else xx := xx +"亿"
    case8 : if(Mid(x,z-i+1,1) <>"0") then xx := xx + Mid(x,z-i+1,1) +"仟"
    case7 : if(Mid(x,z-i+1,1) <>"0") then xx := xx + Mid(x,z-i+1,1) +"佰"
    case6 : if(Mid(x,z-i+1,1) <>"0") then xx := xx + Mid(x,z-i+1,1) +"拾"
    case5 : if(Mid(x,z-i+1,1) <>"0") then xx := xx + Mid(x,z-i+1,1) +"万"else xx := xx +"万"
    case4 : if(Mid(x,z-i+1,1) <>"0") then xx := xx + Mid(x,z-i+1,1) +"仟"
    case3 : if(Mid(x,z-i+1,1) <>"0") then xx := xx + Mid(x,z-i+1,1) +"佰"
    case2 : if(Mid(x,z-i+1,1) <>"0") then xx := xx + Mid(x,z-i+1,1) +"拾"
    case1 : if(Mid(x,z-i+1,1) <>"0") then xx := xx + Mid(x,z-i+1,1)+"元"
    case0 : 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) else xx :=xx+"零"
);
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","玖");
if instr(xx,'元') <=0 then
  if instr(xx,'角')>0 then
    xx:=left(xx,instr(xx,'角')-2)+'元'+right(xx,len(xx)-instr(xx,'角')+2);
 

if right(xx,1)='零' then
    if instr(xx,'元')>0 then
      xx :=left(xx,len(xx)-1)+'整'
    else
      xx :=left(xx,len(xx)-1)+'元整' 
else 
  xx :=xx +"分";

 

版本二：这种金额大写不同进度间的零的显示一次，显示效果如：二十万零九百零一元四角整(200901.40)

StringVar x;
StringVar xx:="";
NumberVar z;
NumberVar i;
x := ToText(Sum ({BuyCompact.SC_SumPrice}));
x := Replace(x,",","");
x := Replace(x,".","");
z := length(x);

for i := z to 1 step -1do
(
    StringVar temp:=Mid(x,z-i+1,1);
    select i
    case12 : xx := temp +"十"
    case11 : xx := xx + temp +"亿"
    case10 : xx := xx + temp +"仟"
    case9 : xx := xx + temp +"佰"
    case8 : xx := xx + temp +"拾"
    case7 : xx := xx + temp +"万"
    case6 : xx := xx + temp +"仟"
    case5 : xx := xx + temp +"佰"
    case4 : xx := xx + temp +"拾"
    case3 : xx := xx + temp +"元"
    case2 : xx := xx + temp +"角"
    case1 : xx := xx + temp +"分"
   
);
stringvar test="";
z := length(xx);
i:=1;
while i<z do
(
    StringVar temp:=Mid(xx,i,1);
    if temp="0" then
    (
        if mid(xx,i-2,1)<>"0" and (Mid(xx,i+1,1)="亿" or Mid(xx,i+1,1)="万" or Mid(xx,i+1,1)="元") then
        (
        xx :=Left (xx,i-1 )+Replace(xx,Mid(xx,i,1) ,"" ,i , 1);
        )
        elseif mid(xx,i-2,1)<>"0" and i+2<length(xx) and mid(xx,i+2,1)<>"0" then
        (
        xx :=Left (xx,i )+Replace(xx,Mid(xx,i+1,1) ,"" ,i+1 , 1);
        )
        elseif Mid(xx,i+1,1)="角" and Mid(xx,i+2,1)<>"0" then
        (
        xx :=Left (xx,i )+Replace(xx,Mid(xx,i+1,1) ,"" ,i+1 , 1);
        )
        else
        (
        i := i-1;
        xx :=Left (xx,i )+Replace(xx,Mid(xx,i+1,2) ,"" ,i+1 , 1);
        )
    );
    i:=i+1;
    z:=length(xx);
);

xx := Replace(xx,"0","零");
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 := xx +"整"+test;

界面代码：

///<summary>
        /// 大写显示金额
        ///</summary>
        ///<param name="value">值</param>
        publicvoid UpperAccount(decimal value)
        {
            if (value ==0)
                return;
            string strValue = value.ToString();
            if (!strValue.Contains("."))
            {
                strValue +=".00";
            }
            string strResult =string.Empty;
            int z, i;
            strValue = strValue.Replace(".", "");
            z = strValue.Length;
            for (i = z; i >=1; i--)
            {
                string temp = strValue.Substring(z - i, 1);
                switch (i)
                {
                    case12: strResult += temp +"拾"; break;
                    case11: strResult += temp +"亿"; break;
                    case10: strResult += temp +"仟"; break;
                    case9: strResult += temp +"佰"; break;
                    case8: strResult += temp +"拾"; break;
                    case7: strResult += temp +"万"; break;
                    case6: strResult += temp +"仟"; break;
                    case5: strResult += temp +"佰"; break;
                    case4: strResult += temp +"拾"; break;
                    case3: strResult += temp +"元"; break;
                    case2: strResult += temp +"角"; break;
                    case1: strResult += temp +"分"; break;
                }
            }
            z = strResult.Length;
            while (i < z)
            {
                string temp = strResult.Substring(i, 1);
                if (temp =="0"&& i ==0)
                {
                    i++;
                    continue;
                }
                elseif (temp =="0")
                {
                    if (strResult.Substring(i -2, 1) !="0"&& (strResult.Substring(i +1, 1) =="亿"|| strResult.Substring(i +1, 1) =="万"|| strResult.Substring(i +1, 1) =="元"))
                    {
                        strResult = strResult.Remove(i, 1);
                    }
                    elseif (strResult.Substring(i -2, 1) !="0"&& i +2< strResult.Length && strResult.Substring(i +2, 1) !="0")
                    {
                        strResult = strResult.Remove(i +1, 1);
                    }
                    elseif (strResult.Substring(i +1, 1) =="角"&& strResult.Substring(i +2, 1) !="0")
                    {
                        strResult = strResult.Remove(i +1, 1);
                    }
                    else
                    {
                        i--;
                        strResult = strResult.Remove(i +1, 2);
                    }
                }
                i++;
                z = strResult.Length;
            }
            strResult = strResult.Replace("0", "零");
            strResult = strResult.Replace("1", "壹");
            strResult = strResult.Replace("2", "贰");
            strResult = strResult.Replace("3", "叁");
            strResult = strResult.Replace("4", "肆");
            strResult = strResult.Replace("5", "伍");
            strResult = strResult.Replace("6", "陆");
            strResult = strResult.Replace("7", "柒");
            strResult = strResult.Replace("8", "捌");
            strResult = strResult.Replace("9", "玖");
            lblAccount.Text = strResult +"整";
        }

转载于:https://www.cnblogs.com/gaomq/archive/2012/07/02/cryscript.html

weixin_33921089
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
水晶报表 使用公式 转化大写
zhvsby的专栏
10-09 1153
<br />Dim x As String<br />Dim y As String<br />Dim zimu as String<br />Dim temp As String<br />Dim letter As String<br />Dim upcase As String<br />Dim i as Number<br />dim j as Number<br />  zimu = ".sbqwsbqysbqwsbq" '定义位置代码<br />  letter = "0123456789sbq
C#转换汉字大写函数
Firestone的C#学习历程
06-04 1572
public static void FloatTransform(string strNum,ref string result)  {   string strInt;   string strFloat;   strInt=strNum.Substring(0,strNum.IndexOf(".",0));//整数部分的值   strFloat=strNum.Substring((strNu
水晶报表中金额数据大写函数
08-16
水晶报表中金额数据大写函数算法，大家可以参考一下。
水晶报表数字金额转中文大写
01-07
水晶报表数字金额转中文大写,用于水晶报表中将数字金额转换为中文大写的金额
水晶报表中人民币大写的转换函数
10-12 980
Function RMB (ls as currency) as string    dim dx_sz as string    dim dx_dw as string     dim str_int as string     dim str_dec as string    dim dx_str as string     dim fu as string    dim a as strin
水晶报表下将数字转换成金额大写的公式
weixin_30809173的博客
03-01 171
版本一：这种金额大写忽略不同进度间的零的显示，显示效果如：二十万九百一元四角整(200901.40) CodeStringVarx;StringVarxx:="";NumberVarz;NumberVari;x:=ToText(Sum({@@AMOUNT}));x:=Replace(x,",","");x:=Replace(x,".","");z:=l...
mysql函数，将数字金额转成人民币大写
06-12
在MySQL数据库中，有时我们需要将数字金额转换成人民币的大写形式，这在财务报表或会计系统中非常常见。为了实现这一需求，我们可以自定义一个函数或者利用现有的字符串处理函数。以下是一个关于如何在MySQL中实现这...
数字转换成金额大写
04-27
在IT行业中，尤其是在财务软件开发或者自动化报表系统中，经常需要将数字转换成中文大写的金额形式，以便符合中国的财务规范。"数字转换成金额大写"是一个常见的需求，特别是在Delphi这样的编程环境中。Delphi是一款...
易语言数字转换汉字大写
07-19
在编程领域，尤其是在中文编程环境中，有时我们需要将阿拉伯数字转换为汉字大写，这在财务、会计等领域的报表和凭证中尤为常见。易语言作为一款中国本土开发的、以中文编程为特色的编程语言，提供了方便的方式来实现...
水晶报表人民币大写转换函数
数据库天地
12-02 426
当您需要做一个诸如出入库单的报表时，经常会用到人民币总金额的汇总，并希望打印出来的时候有人民币的大写，所以您需要插入一个sum函数来进行合计，那么合计出来的阿拉伯数字的人民币如何转换成中文大写呢？ 以下代码将帮你完成人民币大写的转换，您必须添加一个字符串类型的未邦定字段到您的水晶报表，然后将上面您已经sum好的阿拉伯数字作为一个参数传递到下面代码中的函数。即得到了人民币的大写。 Function...
水晶报表金额大写函数
skydaxia的专栏
12-26 2012
Function (stringvar number)(  stringvar str1 := "零壹贰叁肆伍陆柒捌玖";            //0-9所对应的汉字   stringvar str2 := "万仟佰拾亿仟佰拾万仟佰拾元角分"; //数字位所对应的汉字   stringvar str3 := "";    //从原num值中取出的值   stringvar str4 := "";
[水晶报表]人民币大写转换函数
德仔
12-02 3306
当您需要做一个诸如出入库单的报表时，经常会用到人民币总金额的汇总，并希望打印出来的时候有人民币的大写，所以您需要插入一个sum函数来进行合计，那么合计出来的阿拉伯数字的人民币如何转换成中文大写呢？ 以下代码将帮你完成人民币大写的转换，您必须添加一个字符串类型的未邦定字段到您的水晶报表，然后将上面您已经sum好的阿拉伯数字作为一个参数传递到下面代码中的函数。即得到了人民币的大写。 Functio
一个水晶报表的数字转换成中文大写的公式！
流落街头(蜗牛)
09-15 3917
StringVar x;StringVar xx := "";NumberVar z;NumberVar i;x := ToText({CL_CFKB.FKJE});x := Left(x,length(x)-5); //这里所减去的数字，是小数点后面的位数加1的值                                   //我这里是存储时保留小数点后4 位，所以只能精确到个位。x :
[其他]水晶报表中的人民币大写函数
aisui8850的博客
01-26 173
Function RMB ( ls as Currency) as string Dim dblAmount as Double Dim MA1(14) as string ,MA2(14) as string, x as string, y as string, Y1, LML As numb...
Crystal Reports(水晶报表) 中的人民币大写金额写法
从Java看编程
06-08 900
自定义一个变量如下： (  {@TotalWithTax} 是要显示成人民币大写金额的变量 )   ________________________________________________         Global   StringVar   Array   PreDotUnit;       Global   StringVar   Array   ChineseDolla...
[水晶报表]金额转英文大写
德仔
08-17 2719
源文转载：http://bbs.csdn.net/topics/300021579Function (numbervar Amount) //金额转英文大写，Crystal语法 local stringVar array smallNumbers := ["ZERO", "ONE", "TWO", "THREE", "FOUR", "FIVE", "SIX", "SEVEN"
CrystalReport水晶报表教程
07-19
CrystalReport水晶报表教程，CrystalReport水晶报表教程

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值