如何把:会计上的金额:123456789.321转换成中文大写 和 英文.??

[yuansuibo108]

如何把:会计上的金额:123456789.321转换成中文大写 和 英文.??
壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖圆叁角贰分壹厘.
和相应的英文写法???????????

[rshen]

弄两个函数，应该不难解决吧。

[ayqlj]

自已做个函数吧，不知道有多少人做过同样的函数了

[meCAD]

String UpperMoney(double jn)
{
int L , ZL , Z , U , V;
AnsiString F = "壹贰叁肆伍陆柒捌玖" ;
AnsiString G = "元万亿万拾佰仟分角" ;
AnsiString AA , B , JNS;
JNS.SetLength(255);
double je ;

if(jn<=0)
return "零" ;

je=(jn<1?jn*100:jn);

sprintf(JNS.c_str(),"%26.2f",je) ;
JNS=TrimRight(TrimLeft(JNS)) ;

L = StrLen(JNS.c_str()) ;
L=(jn<1?(jn<0.1?1:2):L) ;

ZL = L+1 ;

AA =AnsiString("") ;
B = AnsiString("") ;

for( ;L>0; )
{
Z = StrToInt(JNS.SubString(ZL-L,1)) ;
U = int(L/4) ;
V = L%4 ;

if( Z>0 )
{
U=(V==0?U+U-1:V+V+(U>0?7:13)) ;
AA = AA+B+F.SubString(Z+Z-1,2)+G.SubString(U,2) ;
B = "" ;
}
else
{
if(L==1)
AA=AA+"整" ;
else
{
if(V==0)
AA=AA+G.SubString(U*2-1,2);
else
AA=AA+"" ;
}

B=(V>=0?"零":"") ;
}
L=(L==4?2:L-1) ;
}
return AA ;
}


服了你了.发了这么多贴子

记得头文件是
#include <stdio.h>

[涵树_fx]

我这里也有一个，是我看了楼上的那位写的，自认为比楼上的那位的适应性要强，当然使用起来也没有楼上的那么方便，使用之前你要指定格式哟，这个函数没有做多少测试，欢迎测试，如果有问题发邮件到[e-mail],谢谢指教，多多交流
参数简介：MFormat为输入格式，Money为金额（字符），StrMoney为返回的大写金额

BOOL APIENTRY UpperMoney(LPCSTR MFormat, LPCSTR Money, LPSTR StrMoney)
{
//确定占位符,其中--为输出占位符
//如果占位符为--#--#--#.--#--#,那么只返回中文数字
//如果占位符为--拾--元.--角--分，那么就要返回中文数字及单位
//输入数字的格式必须为####.00
//算法:从右边开始扫描输入,只认-
int intlen = 0;//字符长度
int intlenF = 0;//格式长度
int i = 0;//标记当前数字位置
int l = 0;//标记当前格式符的位置
CHAR LocalMoney[50];//本地操作变量
CHAR Sign[20];//参数 = "零壹贰叁肆伍陆柒捌玖";
CHAR strNum[2];//中文数字
CHAR strNum1[2];//数字
int intNum = 0;//每一个数字

intlenF = _mbstrlen(MFormat);
intlen = _mbstrlen(Money);
strcpy(LocalMoney, Money);//拷贝数据到本地缓冲区
strcpy(Sign, "零壹贰叁肆伍陆柒捌玖");
//将格式符赋给传出参数
strcat(StrMoney, MFormat);
i = intlen - 1;
for (l = intlenF - 1; l >= 0; l --){//扫描格式符
//如果遇到#,将其设为" "
if (StrMoney[l] == '#'){
StrMoney[l] = ' ';//设为空字符
continue;
}
if (StrMoney[l] == '.')
continue;
if (StrMoney[l - 1] == '-' && StrMoney[l] == '-'){
//MessageBox(NULL, "hhh", "xxx", MB_OK);
if (i >= 0){
strNum1[0] = LocalMoney[i];
if (strNum1[0] == '.'){
i --;
strNum1[0] = LocalMoney[i];
}
strNum1[1] = '\0';
//MessageBox(NULL, strNum1, "ok", MB_OK);
intNum = atoi(strNum1);
strNum[0] = Sign[intNum * 2];
strNum[1] = Sign[intNum * 2 + 1];
i --;//移动标记值
}
//写入数字
StrMoney[l - 1] = strNum[0];
StrMoney[l] = strNum[1];
}
}
return TRUE;
}