关闭

RmbChangdx

554人阅读 评论(0) 收藏 举报
分类:
function RmbChangdx(mmje: Double): String;

const
  s1: String = '零壹贰叁肆伍陆柒捌玖';
  s2: String = '分角元拾佰仟万拾佰仟亿拾佰仟万';

var
  s, dx: String;
  i, Len: Integer;

function StrTran(const s, s1, s2: String): String;
begin
  Result := StringReplace(s, s1, s2, [rfReplaceAll]);
end;

begin
  if mmje < 0 then
  begin
    dx := '负';
    mmje := -mmje;
  end;
  s := Format('%.0f', [mmje * 100]);
  Len := Length(s);
  for i := 1 to Len do
    dx := dx + Copy(s1, (Ord(s[i]) - Ord('0')) * 2 + 1, 2) +
      Copy(s2, (Len - i) * 2 + 1, 2);
  dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零仟', '零'), '零佰', '零'),
    '零拾', '零'), '零角', '零'), '零分', '整');
  dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零零', '零'), '零零', '零'),
    '零亿', '亿'), '零万', '万'), '零元', '元');
  if dx = '整' then
    Result := '零元整'
  else
    Result := StrTran(StrTran(dx, '亿万', '亿'), '零整', '整');
end;

0
0

  相关文章推荐
查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:372920次
    • 积分:6069
    • 等级:
    • 排名:第4116名
    • 原创:215篇
    • 转载:126篇
    • 译文:1篇
    • 评论:43条
    最新评论