請問reportbuilder里面怎么將金額轉換為大寫？
代碼要怎么用？用label還是variable呢？請高手門舉個詳細的操作例子OTZ
uj5u.com熱心網友回復：
qianwei:=1+i;vstr:='';
vcramt:= dbcalc1.value+dbcalc2.value;
Smallmonth:=formatfloat('0.00',vcramt);
dianweizhi :=pos('.',Smallmonth);
Bigmonth:='';
for qian:=1 to length(Smallmonth) do
begin
qian1:=length(Smallmonth)-qian+1;
if qian1<>dianweizhi then
begin
if copy(Smallmonth,qian1,1)='-' then wei1:='?o';
case strtoint(copy(Smallmonth,qian1,1)) of
1:wei1:='壹'; 2:wei1:='貳';
3:wei1:='叁'; 4:wei1:='肆';
5:wei1:='伍'; 6:wei1:='陸';
7:wei1:='柒'; 8:wei1:='捌';
9:wei1:='玖'; 0:wei1:='零';
end;
case qianwei of
1:qianwei1:='分';
2:qianwei1:='角';
3 :qianwei1:='元';
4 :qianwei1:='拾';
5 :qianwei1:='佰';
6 :qianwei1:='千';
7 :qianwei1:='萬';
8 :qianwei1:='拾';
9 :qianwei1:='佰';
10 :qianwei1:='千';
11 :qianwei1:='億';
12 :qianwei1:='十';
13:qianwei1:='佰';
14:qianwei1:='千';
end;
qianwei:=qianwei+1;
BigMonth :=wei1+qianwei1+BigMonth;
end;
end;
Value:=vstr+bigMonth;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/133629.html
標籤：VCL組件開發及應用