最精简的小写金额转大写的函数

 

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;