喜悦国际村 
» 游客:  注册 | 登录 | 搜索 | 统计 | 帮助

RSS 订阅当前论坛  

喜悦证交所已经关闭

上一主题 下一主题
     
标题: 将浮点数转化为人民币大写的函数  
 
leesandy
新手上路
Rank: 1



UID 70566
精华 0
积分 12
帖子 3
金钱 12 喜悦币
威望 0
人脉 0
阅读权限 10
注册 2006-3-28
状态 离线
将浮点数转化为人民币大写的函数

遇到需要将金额由浮点数转化为人民币大写的需求,遂设计此函数,命名为 trans2rmb(),局限于小于万亿的金额表示。

执行效果如下:
121221231123.41 => 壹仟贰佰壹拾贰亿贰仟壹佰贰拾叁万壹仟壹佰贰拾叁元肆角壹分整

代码看这里: http://www.liqintao.net/blog/?p=52
2006-7-22 10:21 AM#1
查看资料  发短消息  顶部
 
ice1976
新手上路
Rank: 1



UID 75887
精华 0
积分 0
帖子 2
金钱 0 喜悦币
威望 0
人脉 0
阅读权限 10
注册 2006-7-3
状态 离线
[推荐阅读] 用phpmailer测试邮件发送,对方收不到邮件?
找好久了,谢谢啦!

找好久了,谢谢啦!
2006-8-21 11:27 PM#2
查看资料  发短消息  顶部
 
Pageup
新手上路
Rank: 1



UID 77621
精华 0
积分 3
帖子 6
金钱 3 喜悦币
威望 0
人脉 0
阅读权限 10
注册 2006-8-3
状态 离线
[推荐阅读] mysql select where中like不匹配项该怎样写?
不错!谢谢支持!
2006-8-24 08:39 AM#3
查看资料  发短消息  顶部
 
dragon005 (dragon005)
新手上路
Rank: 1
初级会员



UID 63588
精华 0
积分 25
帖子 23
金钱 25 喜悦币
威望 0
人脉 0
阅读权限 10
注册 2005-3-20
状态 离线
[推荐阅读] 出一道简单的题
看看我写的,请给意见

<?php
  Function rmb($str)
  {
        $str = (String)$str;
        $pos = strrpos($str,".");
        if ($pos == false)
        {
          $len = strlen($str);
          $bl = 5 - $len;
          switch ($bl)
          {
                case 1:
                        $str = "0".$str;
                    break;
                case 2:
                        $str = "00".$str;
                    break;
                case 3:
                        $str = "000".$str;
                    break;
                case 4:
                        $str = "0000".$str;
                    break;
          }
          $str = $str.".00";
        }
        else
        {
          Switch ($pos)
          {
        case "1":
                        $str = "0000".$str;
                    break;
        case "2":
                        $str = "000".$str;
                    break;
        case "3":
                        $str = "00".$str;
                    break;
        case "4":
                        $str = "0".$str;
                    break;
          }
          $pos = strrpos($str,".");
          $len = strlen($str);
          $bl = $len - $pos;
          if ($bl == 2)
          {
                $str = $str."0";
          }
        }
        $temp = str_split($str);
        $a_limit = Count($temp);
        $rmb = "";
        for ($i = 1;$i <= $a_limit;$i++)
        {
          Switch ($temp[$i-1])
          {
                case "1":
                  $rmb = $rmb."壹 ";
                  break;
                case "2":
                  $rmb = $rmb."贰 ";
                  break;
                case "3":
                  $rmb = $rmb."叁 ";
                  break;
                case "4":
                  $rmb = $rmb."肆 ";
                  break;
                case "5":
                  $rmb = $rmb."伍 ";
                  break;
                case "6":
                  $rmb = $rmb."陆 ";
                  break;
                case "7":
                  $rmb = $rmb."柒 ";
                  break;
                case "8":
                  $rmb = $rmb."捌 ";
                  break;
                case "9":
                  $rmb = $rmb."玖 ";
                  break;
                case "0":
                  $rmb = $rmb."零 ";
                  break;
                case ".":
                  //echo "贰";
                  break;
          }
        }
        return $rmb;
  }
?>
2006-8-26 10:43 AM#4
查看资料  访问主页  发短消息  顶部
 
leesandy
新手上路
Rank: 1



UID 70566
精华 0
积分 12
帖子 3
金钱 12 喜悦币
威望 0
人脉 0
阅读权限 10
注册 2006-3-28
状态 离线
[推荐阅读] 求助:麻烦的smarty
to dragon005

你的代码如何表示"仟""万"的级别呢?
2006-8-30 09:21 AM#5
查看资料  发短消息  顶部
 
dreamblaze
金牌会员
Rank: 6Rank: 6
村长他哥


UID 78956
精华 0
积分 1008
帖子 1022
金钱 872 喜悦币
威望 0
人脉 136
阅读权限 70
注册 2006-8-24
来自 福州
状态 离线
[推荐阅读] PHP调用DLL,有没有知道怎么做的?谢谢
呵呵,楼上的楼上只是把数字转为中文大写数字了~
2006-9-1 01:06 PM#6
查看资料  访问主页  Blog  发短消息  QQ . .   顶部
 
dragon005 (dragon005)
新手上路
Rank: 1
初级会员



UID 63588
精华 0
积分 25
帖子 23
金钱 25 喜悦币
威望 0
人脉 0
阅读权限 10
注册 2005-3-20
状态 离线
[推荐阅读] 发现一个怪事儿..
本来就是说转大写嘛,哈哈 ...
2006-9-6 06:01 PM#7
查看资料  访问主页  发短消息  顶部
     


  可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题 | 开通个人空间  


 




Powered by Discuz! 6.1.0  © 2001-2010 Comsenz Inc.
Processed in 0.023850 second(s), 6 queries

(冀ICP备05009913号) 管理员:sadly 邮箱/MSN: sadly@phpx.com QQ:824008(长隐) 清除 Cookies - - Archiver - WAP