金额大小写转换器，求输入数字自动显示货币金额大写的软件

来源：整理时间：2024-08-11 16:50:51 编辑：运气王手机版

本文目录一览

1，求输入数字自动显示货币金额大写的软件
2，小写金额自动生成大写金额
3，excel金额大小写自动转换
4，VBS人民币小写转大写问题
5，大小写金额转换
6，人民币大小写转换c程序

1，求输入数字自动显示货币金额大写的软件

EXCEL 格式-单元格-数字-特殊-中文大写数字

例如在a1输入数字，b1输入=a1，右键点击b1单元格设置字体为特殊，中文大写

求输入数字自动显示货币金额大写的软件

2，小写金额自动生成大写金额

可以用以下这个公式：=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"万",IF(AND(MOD(ABS(A1%),1000)<100,MOD(ABS(A1%),1000)>=10),"万零","万")),"零分","整")

刚才未能理解你的意思，现在知道了，传附件一个，因为公式中有排错的处理，所以比较长一些，如果能理解公式的含义，其实也很简单。这个表可以自动显现百万数的大写金额，也可写带有两位小数的金额。

小写金额自动生成大写金额

3，excel金额大小写自动转换

=IF(M13<0,"金额为负无效",IF((M13=0),"零元整",IF(M13<1,"",TEXT(INT(M13),"[dbnum2]G/通用格式"&"元")&IF(INT(M13*10)-INT(M13)*10=0,"",""))&IF(AND((INT(M13*100)-INT(M13*10)*10)<>0,(INT(M13*10)-INT(M13)*10)=0),"零",IF((INT(M13*10)-INT(M13)*10)=0,"",TEXT(INT(M13*10)-INT(M13)*10,"[dbnum2]G/通用格式"&"角")))&IF((INT(M13*100)-INT(M13*10)*10)=0,"整",TEXT(INT(M13*100)-INT(M13*10)*10,"[dbnum2]G/通用格式"&"分")))) 参照上述公式吧，上面的公式是把M13单元格的金额自动转换为人民币大写金额！

excel金额大小写自动转换

4，VBS人民币小写转大写问题

代码已验证通过！！保存为VBS文件即可dim str(9) str(0)="零" str(1)="壹" str(2)="贰" str(3)="叁" str(4)="肆" str(5)="伍" str(6)="陆" str(7)="柒" str(8)="捌" str(9)="玖" money = inputbox(" 请输入：","人民币大小写转换格式")money = replace(money,".","") money = replace(money,",","")for i=1 to len(money) s=mid(money,i,1) mynum=str(s) select case(len(money)+1-i) case 1: k= mynum case 2: k= mynum&"拾" case 3: k= mynum&"佰" case 4: k= mynum&"仟" case 5: k= mynum&"万" case 6: k= mynum&"拾" case 7: k= mynum&"佰" case 8: k= mynum&"仟" end select temp = temp & k next msgbox temp&"万"

支持一下感觉挺不错的

5，大小写金额转换

int a =金额int b2 (百分位)，b1 (十分位)，b0 (个位)b2=a/100 ("/"运算是取整)b1=a%100 ( %运算是取余)c1=b1%10 (这样就取得了个位)b1=b1/10 (最后取得十位数字)就这种思路当然你format转化为string然后按位读取也是可以的

=substitute(substitute(if(r17<0,"负","")& text(trunc(abs(round(r17,2))),"[dbnum2][$-804]g/通用格式")&" 元"&if(iserr(find(".",round(r17,2))),"",text(right(trunc(round(r17,2)*10))," [dbnum2][$-804]g/通用格式"))&if(iserr(find(".0",text(r17,"0.00")))," 角","")&if(left(right(round(r17,2),3))=".",text(right(round(r17,2))," [dbnum2][$-804]g/通用格式")&"分",if(round(r17,2)=0,"","整")),"零元零",""),"零元","")把公式里的[dbnum2]都替换为[dbnum2][$-804]g/通用格式就可以了。

需要汉字的话再建一个枚举如果不嫌麻烦定义一个方法比如 public string GetCNum(int a) string b; switch(a) case 0 : b ="零"。。。 default : b=""; } return b; } 输出的时候调用这个方法将数字转汉字就行了知道居然没法修改回答，还得开马甲郁闷

6，人民币大小写转换c程序

#include <iostream.h> #include <math.h> void main() int j=0; unsigned int quotient,remainder; bool beginFlag=0,zeroFlag=0; cout<<"请输入预转换数额（小于1亿）："; cin>>x; while (x>=100000000 ) if (j>=2) cout<<"你的错误输入已达3次，你无权再输入！"<<endl; return; } cout<<"你输入的金额超出转换范围，请重新输入！"<<endl; cout<<"请输入预转换数额（小于1亿）："; cin>>x; j++; } if (x<=0) cout<<"零元整"<<endl; return; } x=floor(x*100 +0.5)/100; //小数点后2位四舍五入 while (i>0.001) if (i>0.9) quotient=(unsigned int)floor(x/i); else if (i>=0.099) quotient=(unsigned int)floor(x*10); else quotient=(unsigned int)floor(x*100); } remainder=quotient%10; if (remainder!=0) beginFlag=1; if ((zeroFlag==1) && (beginFlag==1) && (i>1000) && (remainder>0)) cout<<"零"; switch (remainder) //输出大写数字 case 0: break; case 1: cout<<"壹"; break; case 2: cout<<"贰"; break; case 3: cout<<"叁"; break; case 4: cout<<"肆"; break; case 5: cout<<"伍"; break; case 6: cout<<"陆"; break; case 7: cout<<"柒"; break; case 8: cout<<"捌"; break; case 9: cout<<"玖"; break; } if (remainder>0) zeroFlag=0; else if (beginFlag==1) zeroFlag=1; if (beginFlag==1) //输出单位 if ((i==10000000) && (remainder>0)) cout<<"仟"; if ((i==1000000) && (remainder>0)) cout<<"百"; if ((i==100000) && (remainder>0)) cout<<"十"; if (i==10000) cout<<"万"; if ((i==1000) && (remainder>0)) cout<<"仟"; if ((i==100) && (remainder>0)) cout<<"百"; if ((i==10) && (remainder>0)) cout<<"十"; if (i==1) cout<<"元"; if ((i>=0.09) && (i<1) && (remainder>0)) cout<<"角"; if ((i>=0.009) && (i<0.1) && (remainder>0)) cout<<"分"; } i=i/10; } cout<<"整"<<endl; }