首页 相关文章 金额大写转换

金额大写转换

  因为找不到相关函数,便自己写了一个,是仿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...[ 查看全文 ]

2016-02-19 标签:

金额大写转换的相关文章

手机页面
收藏网站 回到头部