关于水晶报表中的将数字金额转换中文大写

[lesli]

关于水晶报表中的将数字金额转换中文大写

[zr1982930]

在水晶报表里比较烦吧！你在DataSet里建个字段，专门用来存储中文金额吧！然后再写个函数用来转换!

[nidanfeng]

在水晶报表里用字符串字段,在程序里赋值,我有专门C#的大写金额转换类.

[nidanfeng]

using System;

namespace money
{
/// <summary>
/// YekeMoney 的摘要说明。
/// </summary>
public class YekeMoney
{
private static string [] HanDigiStr = {"零","壹","贰","叁","肆","伍","陆","柒","捌","玖"};

private static string [] HanDiviStr = { "","拾","佰","仟","万","拾","佰","仟","亿",
"拾","佰","仟","万","拾","佰","仟","亿",
"拾","佰","仟","万","拾","佰","仟" };

private static string PositiveIntegerToHanStr(string NumStr)
{ // 输入字符串必须正整数，只允许前导空格(必须右对齐)，不宜有前导零
string RMBStr="";
int len,n;
bool hasvalue=false,lastzero=false; // 亿、万进位前有数值标记

len = NumStr.Length;

for(int i=0;i<len;i++)
{
// if( NumStr[i]==' ' ) continue; // AnsiString[] base is 1
n = NumStr[i] - '0';
// if( n<0 || n>9 ) return "输入含非数字字符!";
int j=len-i-1;
if( n!=0 )
{
if( lastzero ) RMBStr += HanDigiStr[0]; // 若干零后若跟非零值，只显示一个零
// 除了亿万前的零不带到后面
// if( !( n==1 && (i%4)==1 && (lastzero || i==len-1) ) ) // 如十进位前有零也不发壹音用此行
// if( !( n==1 && (i%4)==1 && i==len-1 ) ) // 十进位处于第一位不发壹音
RMBStr += HanDigiStr[n];
RMBStr += HanDiviStr[len-i-1]; // 非零值后加进位，个位为空
hasvalue = true; // 置万进位前有值标记
}
else
{
if( j==8 || j==4 && hasvalue ) // 亿万之间必须有非零值方显示万
RMBStr += HanDiviStr[len-i-1]; // “亿”或“万”
}
if( j%8==0 ) hasvalue = false; // 万进位前有值标记逢亿复位
lastzero = (n==0) && (j%4!=0); // 亿万前有零后不加零，如：拾万贰仟
}

if( RMBStr.Length==0 ) return HanDigiStr[0]; // 输入空字符或"0"，返回"零"
return RMBStr;
}

public static string NumToRMBStr(double val)
{
if(val>100000000000) return "数字过大！"; //不小于千亿(可以更大点但没有什么意义了)
string SignStr="",TailStr="";
double fraction=0;
Int64 integer=0;
if( val<0 )
{
val = -val;
SignStr = "负";
}

integer=Convert.ToInt64(val-val%1); //整数部分 由于ToInt64本身有四舍五入功能所以要加 val%1 部分
int jiao,fen;


fraction = Math.Round(val%1,2); // 四舍五入到分 在.Net中四舍五入有点争议，它是伍不进位的。
fen = Convert.ToInt32((fraction*100)%10);//分

jiao = Convert.ToInt32((fraction*100-fen)/10);//角
if( jiao==0 && fen==0 )
{
TailStr = "整";
}
else
{
TailStr = HanDigiStr[jiao];
if( jiao!=0 )
TailStr += "角";
if( integer==0 && jiao==0 ) // 零元后不写零几分
TailStr = "";
if( fen!=0 )
TailStr += HanDigiStr[fen] + "分";
}

// 下一行可用于非正规金融场合，0.03只显示“叁分”而不是“零元叁分”
// if( integer==0 ) return SignStr+TailStr;

return SignStr+PositiveIntegerToHanStr( integer.ToString() )+"元"+TailStr;
}

public YekeMoney()
{
//
// TODO: 在此处添加构造函数逻辑
//
}

}
}

// 基本考虑
// 人民币大写单位银行规定用“元”
// 无零头金额后跟“整”，有则不跟
// 角为零时不写角（如：零叁分）
// 四舍五入到分
// 为减少判读疑惑（一般对大写金额预期较高）和
// 体现人民币基本单位为元，金额低于壹圆前仍加“零元”

// 整数转换
// 若干零后若跟非零值，只显示一个零，否则不显示
// 万(亿)前有零后不加零，因亿、万为一完整单位，
// （如：拾万贰仟 比 拾万零贰仟 更顺些）
// 亿为汉语计数最大单位，只要进位到总是显示（如：壹亿亿）
// 万为次最大单位，亿万之间必须有非零值方显示万
// （如“壹亿”不可显示为“壹亿万”）
//
// 为减少被窜改的可能性，十进位总发壹音，这和下面的习惯读法不一样
// （十进位处于第一位不发壹音，如“拾元”非“壹拾元”，
// 十进位处前有零是否不发壹音不太确定，
// 如“叁仟零壹拾元”还是“叁仟零拾元”？）
// 用“拾万”不用“壹拾万”，因为每个整数进位后都有进位单位（拾佰仟万亿）
// 这样即使金额前没有附防窜改的前缀如“人民币”字样也难窜改些
// 因为至少要加添两个汉字并且改动后数字必须进位才能窜改成
// （如“拾万”可改成“叁拾万”，而“壹拾万”至少要改成“壹佰壹拾万”）


// 此函数为Borland C++ Builder编写，已充分考虑到跨平台兼容性
// 如需转换到其它场合，
// 只需修改字符串类型从AnsiString到对应的类型、功能及函数
// （注意两个char*型字符串不可以直接相加，需有一个先转换）

// public domain freeware by 王大庆 2003年3月-5月 v1.1
// 此函数如有不妥之处请email: [e-mail]


//由yeke将上述函数转到C＃语言 2004-3-31
//用法：如 YekeMoney.NumToRMBStr(123.45);

[cansum396]

x := ToText(Sum ({@@AMOUNT})); 这一句为你要把哪个字段或公式转成大写

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 -1 do
(
select i
case 10 : if(Mid(x,z-i+1,1)<>"0") then xx := Mid(x,z-i+1,1) + "十"
case 9 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "亿" else xx := xx + "亿"
case 8 : if(Mid(x,z-i+1,1)<>"0") then xx := 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) + "佰"
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) + "万" else xx := xx + "万"
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) + "佰"
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)+"元"
case 0 : 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 + "分";

[jxufewbt]

学习

[zxp83723]

写的很好，good

[derry_mr]

好