read_rmb.txt

人民币大写金额转换程序(修正版v0.0.3) =================================== 1.使用方法: ------------- 将Cash_RMB.dcu

人民币大写金额转换程序(修正版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版本.

------------------------------------------------------------------
本程序不附源码,可被自由免费地应用于非商业用途,如果你喜欢它,你可以
来信向我索要该程式的源代码.

你可以重新发布该程式，但必须附带本程序附带的所有文件(包括说明文件).

如果你在程序中发现了错误并作了修正，请来信通知我并给我一个新版本的
拷贝。
------------------------------------------------------------------
Brierbird Studio
Author: 法文(Francisvin)
http://grwy.online.ha.cn/francisvin/
E-mail: [e-mail]
Last modified: July 10,1999