因为找不到相关函数,便自己写了一个,是仿Excel 金额转换,不限金额长度。
const
NumberArray: array[0..9] of string =
('零', '壹','貳','叁','肆','伍','陆','柒','捌','玖');
// 数字转与大写
function GetMoneySwitch(AMoney: string): string;
// 去除所有分隔符
procedure ClearComma(var AValue: string);
begin
while Pos(',', AValue) 0 do
Delete(AValue, Pos(',', AValue), 1);
end;
// 测试如果为零将不返回值
function Filtr...[ 查看全文 ]