当前位置：首页 >> 外汇

外汇

小写金额自动变大写-如何将金额合计的自动小写变成大写????????????

2022-03-08 02:01:04外汇

在word或excel里，有没有输入小写金额，自动转换为大写金额的功能？这么麻烦，告诉你一个公式就可以做到了：=IF((INT(G16*10)-INT(G16)

在word或excel里，有没有输入小写金额，自动转换为大写金额的功能？

这么麻烦，告诉你一个公式就可以做到了：=IF((INT(G16*10)-INT(G16)*10)=0,TEXT(INT(G16),"[DBNum2]G/通用格式")&"元"&IF((INT(G16*100)-INT((G16)*10)*10)=0,"整","零"&TEXT(INT(G16*100)-INT(G16*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(G16),"[DBNum2]G/通用格式")&"元"&IF((INT(G16*100)-INT((G16)*10)*10)=0,TEXT((INT(G16*10)-INT(G16)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(G16*10)-INT(G16)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(G16*100)-INT(G16*10)*10,"[DBNum2]G/通用格式")&"分")) 你把这个公式复制到EXCEL表格中，然后在单元格G16中输入你要的数字（阿拉伯数字），你想要的大写金额就会自动出来喽。公式是有点长，但是很实用，希望对你会有帮助。当然你可以把公式当中的单元格G16改成你想要的单元格。

如何将金额合计的自动小写变成大写????????????

FUNCTION chineseje(Aje:Currency):string;var s_1,s_2:widestring; s_5:char; mm:string; i:integer; s_6,s_7:widestring;begin s_4:=format('%10d',[trunc(aje*100)]); begin s_1:='零壹贰叁肆伍陆柒捌玖'; s_2:='仟佰拾万仟佰拾元角分'; i:=1; mm:=''; s_4:string; WHILE i<=10 do s_5:=s_4[i]; IF s_5<>' ' then begin s_7:=s_2[i]; IF (s_5='0') AND (i<>4) AND (i<>8) then s_7:=''; IF (copy(s_4,i,2)='00') OR ( (s_5='0') AND (i in [4,8,10])) then s_6:=''; mm:=mm+s_6+s_7; s_6:=s_1[ord(s_5)-ORD('0')+1]; IF (s_4[i]='0') AND ((s_4[i+1]<>'0') AND (i in [4,8])) then mm:=mm+s_1[1]; END; inc(i); END ; IF s_5='0' then mm:=mm+'整'; result:=mm;end;