zoukankan      html  css  js  c++  java
  • Delphi 实现数字转大写

    从网上找的一段代码

    /// <summary>
    /// 小写转大写
    /// </summary>
    /// <param name="mmje"></param>
    /// <returns></returns>
    function MoneyConvert(mmje: real): string;
    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
        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;
  • 相关阅读:
    第三方登录的原理
    浅谈算法的时间复杂度和空间复杂度
    python3的全局变量和局部变量
    python3的嵌套函数
    HTTP协议学习-03
    HTTP协议学习-02
    HTTP协议学习-01
    织梦模板修改方法大全
    java常用用代码
    java学用代码
  • 原文地址:https://www.cnblogs.com/SoftWareIe/p/4488818.html
Copyright © 2011-2022 走看看