delphi 金额大小写转换函数

最新推荐文章于 2023-12-19 22:37:56 发布
转载 最新推荐文章于 2023-12-19 22:37:56 发布 · 234 阅读 · 0 ·
CC 4.0 BY-SA版权
原文链接：http://www.cnblogs.com/studypanp/p/4923109.html

本文提供了一个Delphi7测试成功的金额大小写转换函数，包括数字到大写金额和大写金额到数字金额的转换。

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

{*------------------------------------------------
  金额大小写转换函数
  @author  王云盼
  @version V1506.01
　在delphi7测试OK
-------------------------------------------------}
unit UnTranRMB; //主要是考虑数字的小数部分，和大写金额的零

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;


function TranRMB(const Value: string): string;     /// const 和 var 常量 变量 数字金额转换成大写金额
function TranNum(M: string):string;                /// 大写金额转换成数字金额  

implementation

{*------------------------------------------------
  判断是否有小数点, 切给出小数点出现的位置 和小数点的数目
  @param  S 字符串
  @param  Pos 小数点位置
  @param  Number 小数点个数
  @return Boolean
-------------------------------------------------}
function  IsPoint(S: string; var Pos: Integer; var Number: integer): Boolean;
var
  I: integer;
begin
  Result := False;
  Number := 0;
  for I := 1 to length(S)  do
  begin
    if S[I] = '.' then
    begin
      Pos := I;
      Number := Number + 1;
      Result := True;
    end;
  end;
end;

{*------------------------------------------------
  检测字符串是否合理，若小数点超过1个或者字符串开头是0
  @param  Value 
  @return Boolean
-------------------------------------------------}
function ChickStr(Value: double): Boolean;
var
  J, K : Integer;
begin
  Result := False;
  if Value <= 0 then
    Result := True;
  if IsPoint(floatToStr(Value), J, K) = True then
    if K >= 2  then
      Result := True;
end;

{*------------------------------------------------
  转换小写函数
  @param
  @return
-------------------------------------------------}
function TranNum(M: string):string;
var
  N: Integer;
  S: string;
begin
  S := '.00';
  if Length(M) = 1 then
    Result := '￥' + M + S
  else Result := '￥' + M ;
end;

{*------------------------------------------------
  数字金额转换成大写金额
  @param
  @return
-------------------------------------------------}
function TranRMB(const Value: string): string;
var
  I, J, K, L, V,  Pos, LZPart, LXPart : integer;
  S1: string;
  IsZero: Boolean;
begin
  if  ((Value[1]='0') and (Value[2]<>'.')) or (Value[1]='.') then  /// 第一位不能为小数点
  begin
    ShowMessage('不符合要求');
    exit;
  end;
  //if  ChickStr(FloatToStr(S1)) = True then exit;  /// 判断是否可以转换
  L := length(Value);                 /// 初始化转换的数字长度
  Result := '人民币';              /// 初始化返回值

  /// 有小数情况
  if IsPoint(Value, Pos, J) = True then
  begin
    LXPart := L - Pos;               /// 小数部分长度
    LZPart := L - LXPart - 1;        /// 整数部分长度
    if StrToFloat(Value) = 0 then
    begin
      Result :=Result + '零元整';
      exit;
    end;
    for J := 1 to LZPart do          /// 当前位置
    begin
      K := StrToInt(Value[J]);       /// 当前位置的内容
      V := LZPart - J + 1;           /// 当前位置的权
      case K of                      /// 获取当前位置内容的大写值
        1: S1 := '壹';
        2: S1 := '贰';
        3: S1 := '叁';
        4: S1 := '肆';
        5: S1 := '伍';
        6: S1 := '陆';
        7: S1 := '柒';
        8: S1 := '捌';
        9: S1 := '玖';
        0: begin                          /// 有0的情况
            S1 := '零';
            if J < LZPart then            /// 如果不是最后一位，则判断低位是否也有0，有0不显示
            begin
              if (Value[J+1] = '') or (Value[J+1] = '0') then
              S1 := '';
            end;
            if J = LZPart then            /// 0在最后一位也不显示
              S1 := '';
           end;
        end;
      case V of                           /// 权的情况
        1:begin
            if K = 0 then
            begin
              if StrToFloat(Value) < 1 then
              begin
                S1 := '';
                Result := Result + S1;
              end
              else begin
              S1 := '';
              Result := Result + S1  + '元' ;
              end;
             end
          else
            Result := Result + S1 + '元';
          end;
        2:begin
          if K = 0 then
            Result := Result + S1
          else
            Result := Result + S1 + '拾';
          end;
        3:begin
          if K = 0 then
             Result := Result + S1
          else
            Result := Result + S1 + '百' ;
          end;
        4:begin
          if K = 0 then
            Result := Result + S1
          else
            Result := Result + S1 + '仟' ;
          end;
        5:begin
          if K = 0 then
            begin
               S1 := '';
               Result := Result + S1  + '万' ;
             end
          else
            Result := Result + S1 + '万';
          end;
        6:begin
          if K = 0 then
            Result := Result + S1
          else
            Result := Result + S1 + '拾';
          end;
        7:begin
          if K = 0 then
            Result := Result + S1
          else
            Result := Result + S1 + '百';
          end;
        8:begin
          if K = 0 then
            Result := Result + S1
          else
            Result := Result + S1 + '仟';
          end;
        9:begin
          if K = 0 then
            begin
               S1 := '';
               Result := Result + S1  + '万' ;
             end
          else
            Result := Result + S1 + '亿';
          end;
        10:begin
          if K = 0 then
            Result := Result + S1
          else
            Result := Result + S1 + '拾';
          end;
        11:begin
          if K = 0 then
            Result := Result + S1
          else
            Result := Result + S1 + '百';
          end;
        12:begin
          if K = 0 then
            Result := Result + S1
          else
            Result := Result + S1 + '仟';
          end;
        13:begin
          if K = 0 then
            Result := Result + S1
          else
            Result := Result + S1 + '万';
          end;
        14:begin
          if K = 0 then
            Result := Result + S1
          else
            Result := Result + S1 + '兆';
          end;
      end;
    end;
     for I := 1 to LXPart do
     begin
        V := StrToInt(Value[I+Pos]) ;
        case V of
          1: S1 := '壹';
          2: S1 := '贰';
          3: S1 := '叁';
          4: S1 := '肆';
          5: S1 := '伍';
          6: S1 := '陆';
          7: S1 := '柒';
          8: S1 := '捌';
          9: S1 := '玖';
          0: begin
              S1 := '零';
              if I < L then   /// 如果不是最后一位
              begin
               if (Value[I+Pos+1] = '') or (Value[I+Pos+1] = '0') then
               begin
                 IsZero := True;
                 S1 := '';
               end;
              end;
              if I = L then
                S1 := '';
              end;
       end;

      case I of
        1: begin
             if V = 0 then
             begin
               Result := Result + S1  ;
             end
             else
               Result := Result + S1 + '角';
           end;
        2: begin
             if V = 0 then
             begin
               Result := Result + S1 ;
             end
             else
              Result := Result + S1 + '分';
             end;
        3: begin
            if V = 0 then
               begin
               Result := Result + S1 ;
             end
             else
              Result := Result + S1 + '厘';
             end;
        4: begin
             if V = 0 then
               begin
               Result := Result + S1 ;
             end
             else
               Result := Result + S1 + '毫';
             end;
      end;
     end;
     if S1 = ''  then Result := Result + '整';
  end

  /// 不是小数情况
  else begin
    for I := 1 to L do                  /// 当前位的位置
    begin
      V := StrToInt(Value[I]) ;    /// 当前位的内容
      K := L - I + 1;                   /// 当前位的权
      case V of
        1: S1 := '壹';
        2: S1 := '贰';
        3: S1 := '叁';
        4: S1 := '肆';
        5: S1 := '伍';
        6: S1 := '陆';
        7: S1 := '柒';
        8: S1 := '捌';
        9: S1 := '玖';
        0: begin
             S1 := '零';
             if I < L then   /// 如果不是最后一位
             begin           /// 判断下一位是不是0,低位0不显示
               if (Value[i+1] = '') or (Value[i+1] = '0') then
                 S1 := '';
             end;
             if I = L then
               S1 := '';
           end;
      end;

      case K of
         1:begin
            if V = 0 then          /// 当有零的情况
            Result := Result + S1 + '元整'
          else
            Result := Result + S1 + '元整';
          end;
        2:begin
          if V = 0 then
            Result := Result + S1
          else
            Result := Result + S1 + '拾';
          end;
        3:begin
          if V = 0 then
             Result := Result + S1
          else
            Result := Result + S1 + '百' ;
          end;
        4:begin
          if V = 0 then
             Result := Result + S1
          else
            Result := Result + S1 + '仟' ;
          end;
        5:begin
          if V = 0 then
             begin
               S1 := '';
               Result := Result + S1  + '万' ;
             end
          else
            Result := Result + S1 + '万';
          end;
        6:begin
          if V = 0 then
             Result := Result + S1
          else
            Result := Result + S1 + '拾';
          end;
        7:begin
          if V = 0 then
             Result := Result + S1
          else
            Result := Result + S1 + '百';
          end;
        8:begin
          if V = 0 then
             Result := Result + S1
          else
            Result := Result + S1 + '仟';
          end;
        9:begin
          if V = 0 then
             begin
               S1 := '';
               Result := Result + S1  + '亿' ;
             end
          else
            Result := Result + S1 + '亿';
          end;
        10:begin
           if V = 0 then
             Result := Result + S1
           else
             Result := Result + S1 + '拾';
           end;
        11:begin
           if V = 0 then
             Result := Result + S1
           else
             Result := Result + S1 + '百';
           end;
        12:begin
           if V = 0 then
             Result := Result + S1
           else
             Result := Result + S1 + '仟';
           end;
        13:begin
           if V = 0 then
             Result := Result + S1
           else
             Result := Result + S1 + '万';
           end;
        14:begin
           if V = 0 then
             Result := Result + S1
           else
             Result := Result + S1 + '兆';
           end;
      end;
    end;
  end;
end;

end.

 

转载于:https://www.cnblogs.com/studypanp/p/4923109.html

delphi 中小写金额转换为大写
qiankun19851231的专栏
10-09 1197
function   MoneyToBigOperator.SmallTOBig(small:real):string;  var   SmallMonth,BigMonth:string;     wei1,qianwei1:string[2];     qianwei,dianweizhi,qian:integer;     begin     {-------   修改参数令值更精确   -
数字转换大写人民币的delphi实现
SysThink的专栏
05-23 633
文章来源：IT工程信息网  http://www.systhinker.com/html/09/n-12309.html之前用Access作一个应用，但找不到货币转换成大写人民币的功能（当然可以通过excel 转换，但不在一个应用上，放弃）。以为比较简单，自己试写，谁知用了两个晚上，才基本实现，但没有小数点（元）以下货币的转换。也没有兆的判断。而且对字符的合法性也没有检验。今天有时间，将其
Delphi金额大小写转换
05-03
方便实现了Delphi中金额大小写转换的功能（源代码）。
Delphi中实现金额小写转化成大写
龚治家的专栏
02-16 1773
function NumToChar(const n: Real): string;   //可以到万亿，并且可以随便扩大范围const cnum:  array[0..9]  of string = (零,壹,贰,叁,肆,伍,陆,柒,捌,玖);      cunit: array[0..14] of string = (万,仟,佰,拾,亿
delphi金额大小写转换
zgp的专栏
05-20 1345
function MoneyCn(mmje: Double): string;const  s1: string = 零壹贰叁肆伍陆柒捌玖;  s2: string = 分角元拾佰仟万拾佰仟亿拾佰仟万;  function StrTran(const S, s1, s2: string): string;  begin    Result := StringReplace(S, s1, s
Delphi 金额转大写
小印丶的笔记
09-07 796
RAD Studio 10.2.3 测试√ 使用实例 procedure TForm_Tips.Button_MoneyConvertClick(Sender: TObject); var mMoneyNum: Real; begin mMoneyNum := 00000000; // 零元整 Memo_Log.Lines.Add(MoneyConvert(mMoneyNum)); mMoneyNum := 00100053; // 壹拾万零伍拾叁元整 Mem
delphi10以上真正能用的金额大小写转换源码
01-31
标题提到的"delphi10以上真正能用的金额大小写转换源码"正是解决这个问题的一个解决方案，它确保了在Delphi 10及更高版本中的兼容性。 Delphi是一种基于Object Pascal的集成开发环境（IDE），广泛用于创建Windows、...
Delphi实现金额大小写智能转换技术
在探讨“Delphi源码”中实现的“大小写金额转换”功能之前，需要先了解整个功能的背景和应用场景。...在Delphi环境下，可以使用VCL框架来设计用户界面，并与上述函数结合，为用户提供完整的大小写金额转换解决方案。
人民币大小写转换，这是个delphi源代码..rar
05-06
本主题涉及的是在Delphi中实现人民币大小写的转换功能。在金融和会计领域，正确地将数字金额转换为大写汉字是至关重要的，因为这有助于避免因数字输入错误而引发的财务纠纷。下面我们将深入探讨如何在Delphi中实现这...
delphi人民币大小写转换.docx
12-27
在 Delphi 开发环境中，处理中文字符和货币格式转换是一项...总之，Delphi 中人民币大小写转换的实现涉及字符串操作、数字处理和中文字符编码等多个方面，通过理解并应用这些知识，可以构建出高效且准确的转换函数。
delphi小写金额转大写的函数《转》
weixin_30404405的博客
07-06 166
function NumToChar(const n: Real): string; //可以到万亿，并且可以随便扩大范围 const cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分'; cCha:array[0..1, 0..12]of string = (( '零元','零拾','零佰','零仟','零万','零亿','亿万','零零...
金额转换器（数字转换为大写）
08-06
Delphi的金额转换器啊Delphi的金额转换器啊Delphi的金额转换器啊
【Delphi源码】-大小写金额转换
09-09
大小写金额转换 列：1234 =》壹仟贰佰叁十肆
小写金额转大写金额(符合财务的两种方式)
02-23
{用Delphi编写人民币大小写转换程序在财务管理系统中，有时需要打印大写人民币数字，于是笔者编写了以下一些函数使这一需要得以满足，现介绍如下：注：copy(2005-Jey-QQ:344430663)本程序在Delphi7、Winwin2000下调试通过。}
Delphi中将小写数字金额转成大写金额
编程资料收集与共享交流
11-26 1365
 procedure TfmBMZC.BitBtn2Click(Sender: TObject); //金额转换　　const　　 chNum : array[0..9] of string = (零,壹,贰,叁,肆,伍,陆,柒,捌,玖);　　 chBit : array[0..3] of string = (圆,拾,佰,仟)
Delphi货币类型转中文大写金额
TU2的专栏
06-15 2559
在Delphi中，为了实现货币数值运算中的严格精度要求，内部把货币类型数据当作一个放大10000倍的64位整数来处理。这样根据64位整数的范围，可以得出货币类型Currency的范围是 [-922337203685477.5807; 922337203685477.5807]。 货币类型一个最常见的应用场景是金额大写转换，网上都是一些先将货币转字符串后再对字符串处理的代码，而且有些方法在有些情况
用delphi写人民币大写转小写的函数
最新发布
程序员与注册会计师
12-19 521
今天找到一个思路，用分段的方法实现了人民币大写转小写的功能，最大到千亿。
Delphi 货币数字转大写
dds2014的博客
03-09 437
delphi 货币数字转大写
Delphi版金额大写(人民币大写读数)代码
xwchen的专栏
11-16 3483
 uses         math; const  mnUnit:WideString =分角元; const  OtherWords:WideString=整负; const  hzUnit:WideString = 拾佰仟万拾佰仟亿; const  hzNum:WideString=零壹贰叁肆伍陆柒捌玖; function Money2Ch
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值