unit change;
interface

 uses SysUtils, Windows, Dialogs;




 function SmallTOBig(small:real):string;
implementation
function SmallTOBig(small:real):string;
var SmallMonth,BigMonth:string;
wei1,qianwei1:string[2];
wei,qianwei,dianweizhi,qian:integer;
begin
{------- 修改參數(shù)令值更精確 -------}
qianwei:=-2;{小數(shù)點(diǎn)后的位置，需要的話也可以改動-2值}
Smallmonth:=formatfloat('0.00',small);{轉(zhuǎn)換成貨幣形式，需要的話小數(shù)點(diǎn)后加多幾個零}
{---------------------------------}
dianweizhi :=pos('.',Smallmonth);{小數(shù)點(diǎn)的位置}
for qian:=length(Smallmonth) downto 1 do{循環(huán)小寫貨幣的每一位，從小寫的右邊位置到左邊}
begin
if qian<>dianweizhi then{如果讀到的不是小數(shù)點(diǎn)就繼續(xù)}
begin
case strtoint(copy(Smallmonth,qian,1)) of{位置上的數(shù)轉(zhuǎn)換成大寫}
1:wei1:='壹'; 2:wei1:='貳';
3:wei1:='叁'; 4:wei1:='肆';
5:wei1:='伍'; 6:wei1:='陸';
7:wei1:='柒'; 8:wei1:='捌';
9:wei1:='玖'; 0:wei1:='零';
end;
case qianwei of{判斷大寫位置，可以繼續(xù)增大到real類型的最大值}
-3:qianwei1:='厘';
-2:qianwei1:='分';
-1:qianwei1:='角';
0 :qianwei1:='元';
1 :qianwei1:='拾';
2 :qianwei1:='佰';
3 :qianwei1:='千';
4 :qianwei1:='萬';
5 :qianwei1:='拾';
6 :qianwei1:='佰';
7 :qianwei1:='千';
8 :qianwei1:='億';
9 :qianwei1:='十';
10:qianwei1:='佰';
11:qianwei1:='千';
end;
inc(qianwei);
BigMonth :=wei1+qianwei1+BigMonth;{組合成大寫金額}
end;
end;
SmallTOBig:=BigMonth;
end;