人民幣大寫金額轉換程序(修正版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
結果將傳回人民幣金額大寫字符串.
如果 CashAmount = 0 或數值溢出(超出萬億位),結果返回空串.
2.說明:
--------
A.本轉換程序最大程度只支持到萬億元(位)的金額數值轉換操作.如果你的
轉換數值超出此極限,你可以在調用前先行判斷數據的合法性,如果沒有作預
先判斷,轉換過程中將引發(fā)本單元中自帶的錯誤處理例程.
b.該轉換結果符合標準金額大寫書寫格式，零角零分等字樣不存在于最終的
轉換結果中.
c.本轉換程序自帶數據溢出等數據非法及轉換錯誤等處理例程.
d.本程序適用于32位的Delphi版本.
標簽：
Cash_RMB
dcu
轉換
程序
上傳時間：
2013-12-31
上傳用戶：hebmuljb
