zoukankan      html  css  js  c++  java
  • 小写转大写

    Function QtyToChar(Qty: Double): String;
    Const
      Con: Array [0 .. 3] Of String[2] = ('', '拾', '佰', '仟');
      DD: Array [0 .. 9] Of String[2] = ('零', '壹', '贰', '叁', '肆', '伍', '陆', '柒',
        '捌', '玖');
    Var
      Str: String;
      i, r: Byte;
    Begin
      If Qty < 0 Then
        Qty := -Qty;
      Str := FormatFloat('#', Qty * 100);
      Result := '';
      For r := 1 to Length(Str) Do
      Begin
        i := StrToInt(Str[Length(Str) - r + 1]);
        Case r OF
          1:
            Result := DD[i] + '分';
          2:
            Result := DD[i] + '角' + Result;
        Else
          IF i > 0 then
            Result := DD[i] + Con[(r - 3) Mod 4] + Result
          Else
          Begin
            if (Copy(Result, 1, 2) <> '零') Then
              Result := '零' + Result;
          End;
        End;
        IF r < Length(Str) Then
          CASE r OF
            2:
              Result := '元' + Result;
            6:
              Result := '万' + Result;
            10:
              Result := '亿' + Result;
          End;
      End;
      While Pos('零元', Result) > 0 Do
        Delete(Result, Pos('零元', Result), 2);
      While Pos('零万', Result) > 0 Do
        Delete(Result, Pos('零万', Result), 2);
      While Pos('零亿', Result) > 0 Do
        Delete(Result, Pos('零亿', Result), 2);
      Result := Result + '整';
    End;
    

      

  • 相关阅读:
    Elasticsearch 类比 mysql 实现 in and like or
    es 全文查询
    es 聚合查询
    es多字段分组并求数量
    es 多字段分组并求和
    es 滚动查询二
    es 滚动查询一
    java8 日期操作
    语录(心灵鸡汤来一波)
    并发处理-隔离级别
  • 原文地址:https://www.cnblogs.com/xh0626/p/5050502.html
Copyright © 2011-2022 走看看