人民幣大寫金額轉(zhuǎn)換程序(修正版v0.0.3)
===================================
1.使用方法:
-------------
將Cash_RMB.dcu放入Delphi安裝目錄下的Lib中,在uses中加入Cash_RMB,
即可引用CashRMB方法.
function CashRMB(CashAmount: Double): String
如:
procedure TForm1.Button1Click(Sender: TObject)
begin
QRLabel1.Caption := CashRMB(Table1.FieldByName( 金額 ).AsFloat)
end
結(jié)果將傳回人民幣金額大寫字符串.
如果 CashAmount = 0 或數(shù)值溢出(超出萬(wàn)億位),結(jié)果返回空串.
2.說(shuō)明:
--------
A.本轉(zhuǎn)換程序最大程度只支持到萬(wàn)億元(位)的金額數(shù)值轉(zhuǎn)換操作.如果你的
轉(zhuǎn)換數(shù)值超出此極限,你可以在調(diào)用前先行判斷數(shù)據(jù)的合法性,如果沒(méi)有作預(yù)
先判斷,轉(zhuǎn)換過(guò)程中將引發(fā)本單元中自帶的錯(cuò)誤處理例程.
b.該轉(zhuǎn)換結(jié)果符合標(biāo)準(zhǔn)金額大寫書寫格式，零角零分等字樣不存在于最終的
轉(zhuǎn)換結(jié)果中.
c.本轉(zhuǎn)換程序自帶數(shù)據(jù)溢出等數(shù)據(jù)非法及轉(zhuǎn)換錯(cuò)誤等處理例程.
d.本程序適用于32位的Delphi版本.
標(biāo)簽：
Cash_RMB
dcu
轉(zhuǎn)換
程序
上傳時(shí)間：
2013-12-31
上傳用戶：hebmuljb
