人民币大写金额转换程序(修正版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.本转换程序最大程度只支持到万亿元(位)的金额数值转换操作.如果你的
转换数值超出此极限,你可以在调用前先行判断数据的合法性,如果没有作预
先判断,转换过程中将引发本单元中自带的错误处理例程.
b.该转换结果符合标准金额大写书写格式,零角零分等字样不存在于最终的
转换结果中.
c.本转换程序自带数据溢出等数据非法及转换错误等处理例程.
d.本程序适用于32位的Delphi版本.
标签:
Cash_RMB
dcu
转换
程序
上传时间:
2013-12-31
上传用户:hebmuljb