数字小写转中文大写 xe5以上专用

大耳肥

已于 2024-05-18 06:09:09 修改

阅读量218

点赞数 1

文章标签：开发语言

于 2024-04-27 08:20:33 首次发布

本文链接：https://blog.youkuaiyun.com/qhdyanjie/article/details/138238502

版权

该代码段是一个VisualBasicforApplications(VBA)函数，用于将十进制数字转换成中文大写的货币格式，如‘壹佰贰拾元零角整’。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

从麦麦提敏处转载非常好用

{感谢麦麦提敏的公开}

 function Changdx2(mmje: Double): String;       //xe5专用版
const
    s1: String = '零壹贰叁肆伍陆柒捌玖';
    s2: String = '分角元拾佰仟万拾佰仟亿拾佰仟兆';

    function StrTran(const S, S1, S2: String): String;
    begin
        Result := StringReplace(S, S1, S2, [rfReplaceAll]);
     end;

var
    s, dx: String;
    i, Len: Integer;
begin
    if mmje < 0 then
    begin
       dx := '负';
       mmje := -mmje;
    end;

    s := Format('%.0f', [mmje*100]);
    Len := Length(s);

    for i := 1 to Len do
    begin
        dx := dx + Copy(s1, (Ord(s[i]) - Ord('0')) + 1, 1) + Copy(s2, (Len - i)  + 1, 1);
    end;

     dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零仟', '零'), '零佰', '零'), '零拾', '零'), '零角', '零'), '零分', '整');
     dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零零', '零'), '零零', '零'), '零亿', '亿'), '零万', '万'), '零元', '元');

    if dx = '整' then
      Result := '零'
    else
      Result := StrTran(StrTran(StrTran(StrTran(dx, '亿万', '亿零'), '零整', '整'),'零元','元'),'零零','零');
end;