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

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:人民幣小寫金額轉換大寫技巧兩則
 
小寫轉大寫金額
小寫轉大寫金額 小寫轉大寫金額 在網上見到一個Oracle的版本的小寫轉大寫金額的函數,感覺還不錯現在把它轉成SQL Server版本。/********************************************************作者:(birdie_776...查看完整版>>小寫轉大寫金額
 
小寫轉大寫金額[SQL SERVER]
原作在SQL 2000中有一些問題。修正錯誤並在SQL 2000中運行通過。/********************************************************作者:(wleii165@yahoo.com)版本:1.0創建時間:20020227修改時間:功能:小寫金額轉換成...查看完整版>>小寫轉大寫金額[SQL SERVER]
 
人民幣小寫金額轉換為大寫函數
程序代碼: <%function Money(thenumber)dim Money,i,String1,String2,length,checkp'定義變量dim one(),onestr()'定義數組String1 = "零壹貳叁肆伍陸柒捌玖"String2 = "萬仟佰拾億仟佰拾萬仟佰拾元角分厘毫" che...查看完整版>>人民幣小寫金額轉換為大寫函數
 
人民幣小寫金額轉換為大寫函數
程序代碼:<%function Money(thenumber)dim Money,i,String1,String2,length,checkp'定義變量dim one(),onestr()'定義數組String1 = "零壹貳叁肆伍陸柒捌玖"String2 = "萬仟佰拾億仟佰拾萬仟佰拾元角分厘毫" chec...查看完整版>>人民幣小寫金額轉換為大寫函數
 
 
回到王朝網路移動版首頁