將小寫數字金額轉成大寫金額

procedure TfmBMZC.BitBTn2Click(Sender: TObject); //金額轉換

const

chNum : array[0..9] of string = ('零','壹','貳','叁','肆','伍','陸','柒','捌','玖');

chBit : array[0..3] of string = ('圓','拾','佰','仟');

var

y, m, d : Word;

s : string;

len, n , tmp: integer;

bIsZero : Boolean;

begin

DecodeDate(Date, y, m, d);

jfjeChange();

with fmPrint do begin

qrYear.Caption:=IntToStr(y);

qrMonth.Caption:=IntToStr(m);

qrDay.Caption:=IntToStr(d);

qrName.Caption:=EdName.Text;

qrXMoney.Caption:=jf;

//對照表生成小寫金額的大寫

bIsZero:=false;

n:=Pos('.', jf); //小數點前的處理

if n=0 then

len:=Length(jf)

else

len:=n-1;

for n:=1 to len do begin

tmp:=StrToInt(jf[n]);

if tmp=0 then begin

if n<len then

bIsZero:=true

else if n=len then

s:=s + chBit[len-n];

end

else begin

if bIsZero then begin

s:=s+chNum[0]+chNum[tmp] + chBit[len-n];

bIsZero:=false;

end

else

s:=s+chNum[tmp] + chBit[len-n];

end;

end;

if Length(jf)>len then begin //小數點後的處理

if len+2<=Length(jf) then begin

tmp:=StrToInt(jf[len+2]);

if tmp=0 then

s:=s+'零'

else

s:=s+chNum[tmp]+'角';

end;

if len+3<=Length(jf) then

s:=s+chNum[StrToInt(jf[len+3])]+'分';

end;

qrDMoney.Caption:=s;

qrShow.Caption:='輔修報名注冊費。';

qrHandler.Caption:='僧格淋沁';

QuickRep1.Preview;

end;

end;

procedure TfmBMZC.jfjeChange(); //對輸入框中內容的控制

var

tmp : string;

begin

//計算"繳費金額"

jf:=Trim(Copy(mEdJFJE.Text, 1, 4));

if jf=' then //"元"爲空

jf:='0';

tmp:=Trim(Copy(mEdJFJE.Text, 7, 1));

if tmp=' then begin file://"角"爲空

tmp:=Trim(Copy(mEdJFJE.Text, 10, 1));

if tmp<>' then //填寫了"分"

jf:=jf+'.0'+tmp;

end

else begin //填寫了"角"

jf:=jf+'.'+tmp;

tmp:=Trim(Copy(mEdJFJE.Text, 10, 1));

if tmp<>' then //填寫了"分"

jf:=jf+tmp;

end;

jf:=FloatToStr(StrToFloat(jf));

end;

end.

 
將小寫數字金額轉成大寫金額
procedure TfmBMZC.BitBTn2Click(Sender: TObject); //金額轉換const chNum : array[0..9] of string = ('零','壹','貳','叁','肆','伍','陸','柒','捌','玖'); chBit : array[0..3] of string = ('圓','拾','佰',...查看完整版>>將小寫數字金額轉成大寫金額
 
小寫金額轉成大寫算法
  小寫金額轉成大寫算法 寫了幾天了,最終轉的還是有問題.請高手帖出算法或代碼. --------------------------------------------------------------- 我用C++寫過一個,代碼不在身邊. 不過可以提示一下,將金額4位...查看完整版>>小寫金額轉成大寫算法
 
在Excel中將人民幣金額小寫轉成大寫
在Excel中將人民幣金額小寫轉成大寫
  Excel中要將人民幣小寫金額轉換成大寫格式,將自定義格式類型中的“G/通用格式”改爲“G/通用格式“元””來實現。但在轉換小數時卻出現了問題,比如¥6,050.09只能轉換爲“陸仟零伍拾.零玖圓”。那怎麽解決這一...查看完整版>>在Excel中將人民幣金額小寫轉成大寫
 
Excel中將人民幣金額小寫轉成大寫
  Excel中要將人民幣小寫金額轉換成大寫格式,將自定義格式類型中的“G/通用格式”改爲“G/通用格式“元””來實現。但在轉換小數時卻出現了問題,比如¥6,050.09只能轉換爲“陸仟零伍拾.零玖圓”。那怎麽解決這一...查看完整版>>Excel中將人民幣金額小寫轉成大寫
 
Excel:人民幣小寫金額轉換大寫技巧兩則
  要將人民幣小寫金額轉換成大寫格式,用Excel提供的格式,將自定義格式類型中的“G/通用格式”改爲“ G/通用格式“元””來實現。但在轉換小數時卻出現了問題,比如¥6,050.09只能轉換爲“陸仟零伍拾.零玖圓”。那...查看完整版>>Excel:人民幣小寫金額轉換大寫技巧兩則