数字转换为大小

转载 2007年09月19日 10:46:00

把金额转为大小的代码

 

 {  该代码摘自大富翁:  吕雪松的
   有改动 }
  function ToDaxie(Money : double) : string;
  var
    XiaoXie,DaXie : String;
    DaXie1:array [0..9] of string;
    Buf,TmpBuf : string;
    I : integer;
    P : integer;
    MM : string;
  begin
    XiaoXie := '0123456789';
    DaXie := '零壹贰叁肆伍陆柒捌玖';
    DaXie1[0] := '零';
    DaXie1[1] := '壹';
    DaXie1[2] := '贰';
    DaXie1[3] := '叁';
    DaXie1[4] := '肆';
    DaXie1[5] := '伍';
    DaXie1[6] := '陆';
    DaXie1[7] := '柒';
    DaXie1[8] := '捌';
    DaXie1[9] := '玖';
    MM := '分角拾佰仟万拾佰仟亿拾佰仟万';
    Buf := FloatToStr(Money);

    TmpBuf := '圆';
    P := Pos('.',Buf);
    if P = 0 then P := Length(Buf) + 1;
    for I := P + 1 to Length(Buf) do
    begin

            if Buf[i] <> '0' then
              TmpBuf := TmpBuf + Buf[i] + Copy(MM, 5 - 2*(I - P),2);
            //
    end;
    //  showmessage(tmpBuf);
    for I := 1 to P - 1 do begin
            if Buf[P - I] <> '0' then begin
                    if I <> 1 then TmpBuf := Copy(MM,2*I + 1,2) + TmpBuf;
                    TmpBuf := Buf[P - I] + TmpBuf;
            end;
    end;
    Buf := TmpBuf;
  //showmessage(Buf);
    for I := 1 to Length(Buf)+2 do begin
            if Buf[I] <> '0' then begin
           
                    P := Pos(Buf[I],XiaoXie);
                   // if P > 0 then Buf := StringReplace(Buf,Buf[I],Copy(DaXie,2*P-1,2),[rfReplaceAll]);
                   if P > 0 then Buf := StringReplace(Buf,Buf[I],DaXie1[strtoint(buf[i])],[rfReplaceAll]);
            end;
    end; 
    result := Buf;
  end;
 

ip转换为纯数字(如何用数字表示ip?)

ip可以转换成数字,这个可能有许多人还不知道哦,今天博主就来道破此不可泄露之天机 比如百度解析的ip为 112.80.248.73: 我们也可以通过ip的方式来访问此网页,就是说: htt...
  • zgyulongfei
  • zgyulongfei
  • 2015年10月01日 12:04
  • 6531

js 字符串转换成数字的三种方法

在js读取文本框或者其它表单数据的时候获得的值是字符串类型的,例如两个文本框a和b,如果获得a的value值为11,b的value值为9 ,那么a.value要小于b.value,因为他们都是字符串形...
  • ufo2910628
  • ufo2910628
  • 2014年11月03日 09:08
  • 701413

将英文字符串转换为数字

近期项目中遇到了一个需求,需要将英文字符串转换为阿拉伯数字。在stackoverflow上和csdn上都找了份代码,不过试验之后发现效果不太理想,所以打算自己写个工具类。参考这两份代码,自己也收获了一...
  • frankingly
  • frankingly
  • 2016年12月28日 00:00
  • 1381

C语言中如何将数字转换成字符串

发现了一个很好的转换函数吧   char * int_to_char(int a)   {   char *b;   sprintf(b,"%d",a); ...
  • hanghang121
  • hanghang121
  • 2015年01月20日 11:45
  • 2862

SQL数字类型转换和四舍五入

cast和convert用于数据类型转换,round用于四舍五入取近似字,numeric用于精确设置数字精度(长度)和小数位数。 T-SQL: CAST and CONVERT Explicitly ...
  • Gordennizaicunzai
  • Gordennizaicunzai
  • 2016年03月14日 23:12
  • 1627

ip转换为纯数字(直接用数字访问网站)

【转载理由:有助于从本质上理解IP地址、也适用于IP地址库范围检索】 最近才知道,将ip地址转换成十进制、八进制、十六进制同样可以访问网站。...
  • Leytton
  • Leytton
  • 2017年06月09日 13:49
  • 799

JAVA 数字转换为中文大写的转换

【转】 读入一个浮点数值,将其转化为中文金额的大写形式。 如123.45,转化为:壹佰贰拾叁元肆角伍分。 以下是各种情况要完善: 1. 当金额为整数,只表示整数部分,省略小数部分,并添加“整”字。如1...
  • abiao1011
  • abiao1011
  • 2013年08月09日 00:07
  • 2196

C语言中将数字转换为字符串的方法

C语言提供了几个标准库函数,可以将任意类型(整型、长整型、浮点型等)的数字转换为字符串。以下是用itoa()函数将整数转换为字符串的一个例子: # include # include void...
  • wuhongxin123
  • wuhongxin123
  • 2014年12月09日 11:34
  • 5959

Javaweb中JavaScript的字符串转换为数字

/* 字符串转数字 parseInt() 可以把一个字符串转换成整数。 parseFloat() 可以把一个字符串转换成小数。 */ ...
  • qq_15124475
  • qq_15124475
  • 2016年11月25日 11:33
  • 472

用指针将一个字符串 转换为数字

题目:输入一个表示整数的字符串,把该字符串转换成整数并输出。例如输入字符串"345",则输出整数345。 分析:这道题尽管不是很难,学过C/C++语言一般都能实现基本功能,但不同程序员就这道题写出的...
  • djy575801327
  • djy575801327
  • 2013年03月17日 11:02
  • 1095
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:数字转换为大小
举报原因:
原因补充:

(最多只允许输入30个字)