2008年6月3日
FastReport调用Delphi中的自定义函数（人民币大写金额）
摘要： 人民币大写金额转换函数 function MoneyToCn(ANumberic: Real): string; const s1: string = '零壹贰叁肆伍陆柒捌玖'; s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万'; function StrTran(const S, s1, s2: string): string; begin Result := Stri... 阅读全文
posted @ 2008-06-03 21:28 sonicit 阅读(3156) 评论(0) 推荐(0) 编辑