人民币中文大写转金额

 

1. type
2.   MoneyType = Currency; //这里可以是Double,但是浮点数存在误差,也可以是Currency,但是大小有限制
3. function ChineseCapital2Money(Capital:WideString): MoneyType;
4. var
5.   szNum:PWideChar;
6.   Sign: MoneyType;
7.   dblCurrent: MoneyType;
8.   I,iCount: Integer;
9. begin
10.   Result := 0;
11.   iCount := Length(Capital);
12.   szNum := PWideChar(Capital);
14.   if szNum^ = #$8d1f(*'负'*) then begin
15.     Sign := -1;
16.     Inc(szNum);
17.     Dec(iCount);
18.   end else begin
19.     Sign := 1;
20.   end;
22.   while iCount > 0 do
23.     begin
24.       case szNum^ of
25.         #$96f6(*'零'*): begin
26.           dblCurrent := 0;
27.         end;
28.         #$58f9(*'壹'*): begin
29.           dblCurrent := 1;
30.         end;
31.         #$8d30(*'贰'*): begin
32.           dblCurrent := 2;
33.         end;
34.         #$53c1(*'叁'*): begin
35.           dblCurrent := 3;
36.         end;
37.         #$8086(*'肆'*): begin
38.           dblCurrent := 4;
39.         end;
40.         #$4f0d(*'伍'*): begin
41.           dblCurrent := 5;
42.         end;
43.         #$9646(*'陆'*): begin
44.           dblCurrent := 6;
45.         end;
46.         #$67d2(*'柒'*): begin
47.           dblCurrent := 7;
48.         end;
49.         #$634c(*'捌'*): begin
50.           dblCurrent := 8;
51.         end;
52.         #$7396(*'玖'*): begin
53.           dblCurrent := 9;
54.         end;
56.         //十百千
57.         #$62fe(*'拾'*): begin
58.           Result := Result + dblCurrent * 10.0;
59.           dblCurrent := 0;
60.         end;
61.         #$4f70(*'佰'*): begin
62.           Result := Result + dblCurrent * 100.0;
63.           dblCurrent := 0;
64.         end;
65.         #$4edf(*'仟'*): begin
66.           Result := Result + dblCurrent * 1000.0;
67.           dblCurrent := 0;
68.         end;
70.         //万亿
71.         #$4e07(*'万'*): begin
72.           Result := (Result + dblCurrent) * 10000.0;
73.           dblCurrent := 0;
74.         end;
75.         #$4ebf(*'亿'*): begin
76.           Result := (Result + dblCurrent) * 100000000.0;
77.           dblCurrent := 0;
78.         end;
80.         //元角分
81.         #$5143(*'元'*): begin
82.           Result := Result + dblCurrent;
83.           dblCurrent := 0;
84.         end;
85.         #$89d2(*'角'*): begin
86.           Result := Result + dblCurrent * 0.1;
87.           dblCurrent := 0;
88.         end;
89.         #$5206(*'分'*): begin
90.           Result := Result + dblCurrent * 0.01;
91.           dblCurrent := 0;
92.           break;
93.         end;
95.         //整
96.         #$6574(*'整'*): begin
97.           break;
98.         end;
99.         else
100.           Raise Exception.Create('输入源错误!');
102.       end;
103.       Inc(szNum);
104.       Dec(iCount);
105.     end;
107.   Result := Result * Sign;
108. end;