大写金额转为英文的算法 修改版

 大写金额转为英文的算法 修改版
 
 从网上找到了这个算法，原作是Dylan Thomas，但是我使用后发现有少少的缺点，例如英文金额的习惯是小数用Cents Twenty-Five这样的表示，但原版中没有小数的功能，只是简单的用百分数表示了。
另外十位的部分也有少许欠缺，25应为：Twenty-Five，再其次就是增加了0到1之间的小数的表示。我在网上搜了一下发现似乎没人修正这些问题，特此发贴与大家分享：

1. {**********}
2. { Number to letters unit version 1.2 }
3. { copyright (C) Dylan Thomas 2000 }
4. { License: No significant restrictions. }
5. { Language: US. English }
6. { Last Edit By logitech1229 2006. }
8. unit NumberToLetters;
10. interface
12. (* This function returns the written equivalent of a number. *)
13. function NumToLetters(Number: Real): string;
15. implementation
16. uses SysUtils;
18. type
20. TNumberStr = string[13];
22. const
23. Numbers: array[1..19] of TNumberStr = ('One','Two','Three', 'Four',
24. 'Five', 'Six', 'Seven', 'Eight', 'Nine', 'Ten', 'Eleven', 'Twelve',
25. 'Thirteen', 'Fourteen', 'Fifteen', 'Sixteen', 'Seventeen', 'Eighteen',
26. 'Nineteen');
28. Tenths: array[1..9] of TNumberStr = ('Ten', 'Twenty', 'Thirty', 'Forty',
29. 'Fifty', 'Sixty', 'Seventy','Eighty','Ninety');
31. ErrorString = 'not in valid range';
33. Min = 1.00;
34. Max = 4294967295.99;
36. function NumToLetters(Number: Real): string;
37. var Dec:String;
38. function RecurseNumber(N: LongWord): string;
39. begin
40. case N of
41. 1..19:
42. Result := Numbers[N];
43. 20..99:
44. begin
45. if (N in [20,30,40,50,60,70,80,90]) then Result := Tenths[N div 10]
46. else Result := Tenths[N div 10] +'-'+ RecurseNumber(N mod 10);
47. end;
48. 100..999:
49. Result := Numbers[N div 100] + ' Hundred And ' + RecurseNumber(N mod 100);
50. 1000..999999:
51. Result := RecurseNumber(N div 1000) + ' Thousand, ' +
52. RecurseNumber(N mod 1000);
53. 1000000..999999999: Result := RecurseNumber(N div 1000000) + ' Million, '
54. + RecurseNumber(N mod 1000000);
55. 1000000000..4294967295: Result := RecurseNumber(N div 1000000000) +
56. ' Billion, ' + RecurseNumber(N mod 1000000000);
57. end; {Case N of}
58. end; {RecurseNumber}
60. begin
61. {Calls := 0;} 
62. if (Number >= Min) and (Number <= Max) then
63. begin
64. Result := RecurseNumber(Round(Int(Number)));
65. {Added for cents in a currency value}
66. if not(Frac(Number) = 0.00) then
67.   {write like 'cents Twenty-five',If you want a result like 'Nought Point two five',you can use strings in {}}
68.   Result :=Result + ' And Cents '+ RecurseNumber(Round(Frac(Number)*100))
69.   {Result :=Result +' Point '+ RecurseNumber(Round(Int(Frac(Number)*10)))+' '+RecurseNumber(Round(Int(Frac(Number*10)*10)))}
70. else Result := Result +' Only';
72. end;
73. if (Number >0) and (Number<Min) then
74. begin
75.   if not(Frac(Number) = 0.00) then
76.   {write like 'cents Twenty-five',If you want a result like 'Nought Point two five',you can use strings in {}}
77.   Result :=Result + ' Cents '+ RecurseNumber(Round(Frac(Number)*100));
78.   {Result :=Result +' Point '+ RecurseNumber(Round(Int(Frac(Number)*10)))+' '+RecurseNumber(Round(Int(Frac(Number*10)*10)))}
79. end;
80. end;{NumToLetters}
82. end. 

-------------------------------------------------------------------------------

1. function NumToChar(const n: Real): string;   //可以到万亿，并且可以随便扩大范围
2.   const cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分';
3.         cCha:array[0..1, 0..12]of string =
4.         (( '零元','零拾','零佰','零仟','零万','零亿','亿万','零零零','零零','零万','零亿','亿万','零元'),
5.          ( '元','零','零','零','万','亿','亿','零','零','万','亿','亿','元'));
6.   var i : Integer;
7.       sNum,sTemp : WideString;
8. begin
9.   result :='';
10.   sNum := format('%15d',[round(n * 100)]);
11.   for i := 0 to 14 do
12.   begin
13.     stemp := copy(snum,i+1,1);
14.     if stemp=' ' then continue
15.     else result := result + cNum[strtoint(stemp)+1] + cNum[i+13];
16.   end;
17.   for i:= 0 to 12 do
18.   Result := StringReplace(Result, cCha[0,i], cCha[1,i], [rfReplaceAll]);
19.   if pos('零分',result)=0
20.     then Result := StringReplace(Result, '零角', '零', [rfReplaceAll])
21.     else Result := StringReplace(Result, '零角','整', [rfReplaceAll]);
22.   Result := StringReplace(Result, '零分','', [rfReplaceAll]);
23. end; 

 

-------------------------------------------------------------------------------

1. function Changdx2(mmje: Double): String;
2. const s1: String = '零壹贰叁肆伍陆柒捌玖';
3.       s2: String = '分角元拾佰仟万拾佰仟亿拾佰仟万';
5.  function StrTran(const S, S1, S2: String): String;
6.   begin
7.     Result := StringReplace(S, S1, S2, [rfReplaceAll]);
8.   end;
9.  var s, dx: String;
10.      i, Len: Integer;
11. begin
12. if mmje < 0 then
13.   begin dx := '负';
14.         mmje := -mmje;
15.   end;
16.    s := Format('%.0f', [mmje*100]);
17.    Len := Length(s);
18.   for i := 1 to Len do
19.    dx := dx + Copy(s1, (Ord(s[i]) - ord('0'))*2 + 1, 2) + Copy(s2, (Len - i)*2 + 1, 2);
20.    dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零仟', '零'), '零佰', '零'), '零拾', '零'), '零角', '零'), '零分', '整');
21.    dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零零', '零'), '零零', '零'), '零亿', '亿'), '零万', '万'), '零元', '元');
22.  if dx = '整' then Result := '零元整'
23.   else Result := StrTran(StrTran(dx, '亿万', '亿零'), '零整', '整');
24. end;

 

--------------------------------------------------------------------------------

 

1. public static String numtochinese(String input){ 
2. String s1="零壹贰叁肆伍陆柒捌玖"; 
3. String s4="分角整元拾佰仟万拾佰仟亿拾佰仟"; 
4. String temp=""; 
5. String result=""; 
6. if (input==null) return "输入字串不是数字串只能包括以下字符（´0´～´9´，´.´)，输入字串最大只能精确到仟亿，小数点只能两位！"; 
7. temp=input.trim(); 
8. float f; 
9. try{ 
10. f=Float.parseFloat(temp); 
12. }catch(Exception e){return "输入字串不是数字串只能包括以下字符（´0´～´9´，´.´)，输入字串最大只能精确到仟亿，小数点只能两位！";} 
13. int len=0; 
14. if (temp.indexOf(".")==-1) len=temp.length(); 
15. else len=temp.indexOf("."); 
16. if(len>s4.length()-3) return("输入字串最大只能精确到仟亿，小数点只能两位！"); 
17. int n1,n2=0; 
18. String num=""; 
19. String unit=""; 
21. for(int i=0;iif(i>len+2){break;} 
22. if(i==len) {continue;} 
23. n1=Integer.parseInt(String.valueOf(temp.charAt(i))); 
24. num=s1.substring(n1,n1+1); 
25. n1=len-i+2; 
26. unit=s4.substring(n1,n1+1); 
27. result=result.concat(num).concat(unit); 
28. } 
29. if ((len==temp.length()) ¦ ¦(len==temp.length()-1)) result=result.concat("整"); 
30. if (len==temp.length()-2) result=result.concat("零分"); 
31. return result; 
32. } 

--------------------------------------------------------------------------------

 

1. //因为找不到相关函数，便自己写了一个，是仿Excel 金额转换，不限金额长度。 
2. const NumberArray: array[0..9] of string = ('零', '壹','貳','叁','肆','伍','陆','柒','捌','玖');
4. // 数字转与大写
5. function GetMoneySwitch(AMoney: string): string;
7. // 去除所有分隔符
8. procedure ClearComma(var AValue: string);
9. begin
10. while Pos(',', AValue) > 0 do
11. Delete(AValue, Pos(',', AValue), 1);
12. end;
14. // 测试如果为零将不返回值
15. function FiltrateValue(const AValue, AStr: string): string;
16. var
17. IntValue: Integer;
18. begin
19. IntValue:= StrToIntDef(AValue, 0);
20. if IntValue > 0 then Result:= AStr; 
21. end;
23. // 直接将数字翻译成大写
24. function Direct(const AValue: string): string;
25. var
26. ResultStr: string;
27. iCount: Integer;
28. begin
29. for iCount:= 1 to Length(AValue) do
30. ResultStr:= ResultStr + NumberArray[StrToInt(AValue[iCount])];
31. Result:= ResultStr;
32. end;
34. // 将四位长度的数字翻译与大写
35. function FourBit(const AValue: string): string;
36. var
37. i, x, j: Integer;
38. IntValue: Integer;
39. ResultStr: string;
40. begin
42. IntValue:= StrToIntDef(AValue, 0);
43. x:= IntValue;
45. i := x div 1000;
46. j := x mod 1000;
47. if i <> 0 then ResultStr:= NumberArray[i] + '仟'
48. else begin
49. if Length(AValue) > 3 then ResultStr:= '零';
50. end;
52. i := j div 100;
53. j := j mod 100;
54. if i <> 0 then ResultStr:= ResultStr + NumberArray[i] + '佰'
55. else begin
56. if (ResultStr <> '') and (Length(AValue) > 2) and
57. (Copy(ResultStr, Length(ResultStr)-1, 2) <> '零') then
58. ResultStr:= ResultStr + '零';
59. end;
61. i := j div 10;
62. j := j mod 10;
63. if i <> 0 then ResultStr := ResultStr + NumberArray[i] + '拾'
64. else begin
65. if (ResultStr <> '') and (Length(AValue) > 1) and
66. (Copy(ResultStr, Length(ResultStr)-1, 2) <> '零') then
67. ResultStr:= ResultStr + '零';
68. end;
70. ResultStr := ResultStr + NumberArray[j];
72. while Copy(ResultStr, Length(ResultStr)-1, 2) = '零' do
73. Delete(ResultStr, Length(ResultStr)-1, 2);
75. Result := ResultStr;
76. end; 
78. var
79. IntegerValue: string; // 整数部分的值
80. KilomegaValue: string; // 存储大于千兆的数字
81. AccountValue: string; // 在千兆以内的整数部分
82. DecimalValue: string; // 存在小数点后的值
84. ResultKilomega: string; // 大于千兆并翻译后的大写字符
85. ResultAccount: string; // 在千兆以内的整数部分并翻译后的大写字符
86. ResultDecimal: string; // 小数点后的值并翻译后的大写字符
88. FourBitStr: string; // 最大四位值的字符
89. begin
91. // 清除分隔符
92. ClearComma(AMoney);
94. // 验证字符串是否合法
95. try
96. AMoney:= FloatToStr(StrToFloat(AMoney));
97. except
98. raise Exception.Create('无效的数值字符串');
99. end;
101. // 取到小数据点后的值
102. // 取出整数部分的值
103. if Pos('.', AMoney) > 0 then
104. begin
105. DecimalValue:= Copy(AMoney, Pos('.', AMoney) + 1, Length(AMoney));
106. IntegerValue:= Copy(AMoney, 0, Pos('.', AMoney)-1);
107. ResultDecimal:= '.' + Direct(DecimalValue);
108. end
109. else IntegerValue:= AMoney;
111. // 取到大于千兆的数字
112. // 取到在千兆以内的整数部分
113. if Length(IntegerValue) > 16 then
114. begin
115. KilomegaValue:= Copy(IntegerValue, 0, Length(IntegerValue) - 12);
116. AccountValue:= Copy(IntegerValue,
117. Length(IntegerValue) - 11, Length(IntegerValue));
118. ResultKilomega:= Direct(KilomegaValue) + '兆';
119. end
120. else AccountValue:= IntegerValue;
122. { 翻译在千兆以内的整数部分 }
124. // 翻译在兆与仟兆之间的部份
125. if Length(AccountValue) > 12 then
126. begin
127. FourBitStr:= Copy(AccountValue, 0, Length(AccountValue) - 12);
128. ResultAccount:= ResultAccount +
129. FourBit(FourBitStr) + FiltrateValue(FourBitStr, '兆');
130. Delete(AccountValue, 1, Length(AccountValue) - 12);
131. end;
132. // 翻译在亿与仟亿之间的部份
133. if Length(AccountValue) >= 8 then
134. begin
135. FourBitStr:= Copy(AccountValue, 0, Length(AccountValue) - 8);
136. ResultAccount:= ResultAccount +
137. FourBit(FourBitStr) + FiltrateValue(FourBitStr, '亿');
138. Delete(AccountValue, 1, Length(AccountValue) - 8);
139. end;
140. // 翻译在万与仟万之间的部份
141. if Length(AccountValue) >= 5 then
142. begin
143. FourBitStr:= Copy(AccountValue, 0, Length(AccountValue) - 4);
144. ResultAccount:= ResultAccount +
145. FourBit(FourBitStr) + FiltrateValue(FourBitStr, '万');
146. Delete(AccountValue, 1, Length(AccountValue) - 4);
147. end;
148. // 翻译万以下的部份
149. if Length(AccountValue) > 0 then
150. begin
151. ResultAccount:= ResultAccount +
152. FourBit(Copy(AccountValue, 0, Length(AccountValue)));
153. end;
155. // 组合字符串
156. Result:= ResultKilomega + ResultAccount + ResultDecimal;
158. end;