金钱转大写，数字转大写

最新推荐文章于 2021-03-28 21:08:10 发布
最新推荐文章于 2021-03-28 21:08:10 发布
阅读量1.2k 收藏
点赞数
分类专栏： 技术备忘记录 文章标签： string function
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lairiwei/article/details/6372665
版权

CREATE FUNCTION CapitalRMB(@ChangeMoney numeric(15,2)) 
RETURNS VarChar(100) AS 
BEGIN
    Declare    @String1    char(20)
    Declare    @String2    char(30)
    Declare    @String4    Varchar(100)
    Declare @String3     Varchar(100)    --从原A值中取出的值
    Declare @i         int        --循环变量
    Declare @J         Int        --A的值乘以100的字符串长度
    Declare @Ch1         Varchar(100)    --数字的汉语读法
    Declare @Ch2         Varchar(100)    --数字位的汉字读法
    Declare @Zero         Int        --用来计算连续有几个零
    Declare    @ReturnValue    VarChar(100)
    Select  @ReturnValue = ''
    Select     @String1 = '零壹贰叁肆伍陆柒捌玖'
    Select    @String2 = '万仟佰拾亿仟佰拾万仟佰拾元角分'
    Select @String4 = Cast(@ChangeMoney*100 as int)   
    select @J=len(cast((@ChangeMoney*100) as int))
    Select @String2=Right(@String2,@J)
    Select    @i = 1
    while    @i<= @j Begin
        Select @String3 = Substring(@String4,@i,1)
        if @String3<>'0' Begin
            Select     @Ch1 = Substring(@String1, Cast(@String3 as Int) + 1, 1)
            Select    @Ch2 = Substring(@String2, @i, 1)
            Select    @Zero = 0                    --表示本位不为零
        end
        else Begin
            If (@Zero = 0) Or (@i = @J - 9) Or (@i = @J - 5) Or (@i = @J - 1)
                        Select @Ch1 = '零'
                    Else
                        Select @Ch1 = ''
                    Select @Zero = @Zero + 1             --表示本位为0
                       
            --如果转换的数值需要扩大，那么需改动以下表达式 I 的值。
            Select @Ch2 = ''
                If @i = @J - 10  Begin
                        Select @Ch2 = '亿'
                        Select @Zero = 0
            end
                   
            If @i = @J - 6 Begin
                        Select @Ch2 = '万'
                        Select @Zero = 0
            end
                   
            if @i = @J - 2 Begin
                        Select @Ch2 = '元'
                        Select @Zero = 0
            end
                   
            If @i = @J
                        Select @Ch2 = '整'
                       
        end   
        Select @ReturnValue = @ReturnValue + @Ch1 + @Ch2
        select @i = @i+1
    end
    --最后将多余的零去掉
    If CharIndex('仟仟',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '仟仟', '仟')
    If CharIndex('佰佰',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '佰佰', '佰')
        If CharIndex('零元',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零元', '元')
   
        If CharIndex('零万',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零万', '万')
  
        If CharIndex('零亿',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零亿', '亿')
   
        If CharIndex('零整',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零整', '整')
   
    If CharIndex('零佰',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零佰', '零')
    If CharIndex('零仟',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零仟', '零')
    If CharIndex('元元',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '元元', '元')
    return @ReturnValue
END

二、小写数字转大写数字

CREATE  FUNCTION CapitalNUM(@ChangeMoney numeric(15,2)) 
RETURNS VarChar(100) AS 
BEGIN
    Declare    @String1    char(20)
    Declare    @String2    char(30)
    Declare    @String4    Varchar(100)
    Declare @String3     Varchar(100)    --从原A值中取出的值
    Declare @i         int        --循环变量
    Declare @J         Int        --A的值乘以100的字符串长度
    Declare @Ch1         Varchar(100)    --数字的汉语读法
    Declare @Ch2         Varchar(100)    --数字位的汉字读法
    Declare @Zero         Int        --用来计算连续有几个零
    Declare    @ReturnValue    VarChar(100)
    Select  @ReturnValue = ''
    Select     @String1 = '零壹贰叁肆伍陆柒捌玖'
    Select    @String2 = '万仟佰拾亿仟佰拾万仟佰拾点零零'
    Select @String4 = Cast(@ChangeMoney*100 as int)   
    select @J=len(cast((@ChangeMoney*100) as int))
    Select @String2=Right(@String2,@J)
    Select    @i = 1
    while    @i<= @j Begin
        Select @String3 = Substring(@String4,@i,1)
        if @String3<>'0' Begin
            Select     @Ch1 = Substring(@String1, Cast(@String3 as Int) + 1, 1)
            Select    @Ch2 = Substring(@String2, @i, 1)
            Select    @Zero = 0                    --表示本位不为零
        end
        else Begin
            If (@Zero = 0) Or (@i = @J - 9) Or (@i = @J - 5) Or (@i = @J - 1)
                        Select @Ch1 = '零'
                    Else
                        Select @Ch1 = ''
                    Select @Zero = @Zero + 1             --表示本位为0
                       
            --如果转换的数值需要扩大，那么需改动以下表达式 I 的值。
            Select @Ch2 = ''
                If @i = @J - 10  Begin
                        Select @Ch2 = '亿'
                        Select @Zero = 0
            end
                   
            If @i = @J - 6 Begin
                        Select @Ch2 = '万'
                        Select @Zero = 0
            end
                   
            if @i = @J - 2 Begin
                        Select @Ch2 = '点'
                        Select @Zero = 0
            end
                   
            If @i = @J
                        Select @Ch2 = '整'
                       
        end   
if  (@i = @J) or ( @i = @J-1) begin
     Select @Ch2 = ''
end
        Select @ReturnValue = @ReturnValue + @Ch1 + @Ch2
        select @i = @i+1
    end
    --最后将多余的零去掉
    If CharIndex('仟仟',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '仟仟', '仟')
    If CharIndex('佰佰',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '佰佰', '佰')
        If CharIndex('零元',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零元', '元')
   
        If CharIndex('零万',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零万', '万')
  
        If CharIndex('零亿',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零亿', '亿')
   
        If CharIndex('零整',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零整', '整')
   
    If CharIndex('零佰',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零佰', '零')
    If CharIndex('零仟',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零仟', '零')
   
      If CharIndex('零点零',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零点零', '')
      If CharIndex('零点',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零点', '点')
return @ReturnValue
END

三、小写数字直接改大写数字，不加十百千万，一对一转

create  FUNCTION CapitalDig(@ChangeMoney numeric(15,2)) 
RETURNS VarChar(100) AS 
BEGIN
    Declare    @String1    char(20)
 
    Declare    @String4    Varchar(100)
    Declare @String3     Varchar(100)    --从原A值中取出的值
    Declare @i         int        --循环变量
    Declare @J         Int        --A转换成字符串的长度
    Declare @Ch1         Varchar(100)    --数字的汉语读法
 
    Declare    @ReturnValue    VarChar(100)
    Select  @ReturnValue = ''
    Select     @String1 = '零壹贰叁肆伍陆柒捌玖'
 
    Select @String4 = Cast(@ChangeMoney as int)   
    select @J=len(cast((@ChangeMoney ) as int))
 
    Select    @i = 1
    while    @i<= @j Begin
        Select @String3 = Substring(@String4,@i,1)
   
            Select     @Ch1 = Substring(@String1, Cast(@String3 as Int) + 1, 1)
     
                  Select @ReturnValue = @ReturnValue + @Ch1     
        select @i = @i+1
 end
       return @ReturnValue
END

 

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/richie441111/archive/2011/01/03/6114373.aspx

lairiwei
关注
专栏目录
金额数字 转中文大写
qq_43653325的博客
09-23 705
金额数字 转中文大写 有三种办法: //方法一: 代码最少: export function DX1(n) { if (!/^(0|[1-9]\d*)(\.\d+)?$/.test(n)) return "数据非法"; var unit = "仟佰拾亿仟佰拾万仟佰拾元角分", str = ""; n += "00"; var p = n.indexOf('.'); i...
mysql函数，将数字金额转成人民币大写
06-12
-- 定义人民币大写数字的对应关系 DECLARE digit_map CHAR(10) DEFAULT '零壹贰叁肆伍陆柒捌玖'; -- ... -- 实现转换逻辑 SET rmb_str = ...; RETURN rmb_str; END // DELIMITER ; ``` 在`...`部分，你...
金钱大写转数字类型，精确到分
01-18
支持大写金额壹---玖大写中文转换数字类型，精确到分，测试到亿（实际应该用不到亿），看到16年写的有问题，今天忽然看了修改了一下
Java金钱转换大写
我一直想飞
03-30 1226
CSDN的第一篇文章 public class  ConvertMoney {//   支持传入10为整数和两位小数  //实例化后调用numToChinese方法,传入String参数  public  String numToChinese(String input)  {                 if(input.indexOf(".")!=-1)          
金钱数字转换为大写中文
qq165285727的专栏
11-27 1884
效果图如下：           ///         /// 金钱数字转换为大写中文         ///         ///         ///         public static string ConvertToChinese(Decimal number)         {
数字转中文数字大写
QZC78的博客
07-24 966
财务中文大写，阿拉伯数字转中文数字大写，数字转化大写汉字
php 数字小写转大写,php将金钱小写数字转为金钱大写的方法
weixin_39974557的博客
03-28 127
function change_num($num){$d = array('零','壹','贰','叁','肆','伍','陆','柒','捌','玖');$e = array('元','拾','佰','仟','万','拾万','佰万','仟万','亿','拾亿','佰亿','仟亿','万亿');$p = array('分','角');$zheng='整'; //追加"整"字$final = ar...
数字转货币金钱中文大写
小书包的博客
11-29 346
第一版 package com.demo; /** * @author Administrator * @date 2018/11/29 22:46 */ public class NumToChinese { private String[] suffixArr = new String[]{"", "拾", "佰", "仟", "万", "拾万", "佰万&q
php大写数字转换,php如何实现数字金额转换大写金额（代码示例）
weixin_29179311的博客
03-09 393
本篇文章给大家带来的内容是关于php如何实现数字金额转换大写金额(代码示例)，有一定的参考价值，有需要的朋友可以参考一下，希望对你有所帮助。早些年做CRM用到的一个金额转换函数，今天从旧项目中拿出来记录一下。金额转换的函数方法有很多，都很不错。不过这个是小崔刚工作的时候写的一个转换函数，多少还是有点纪念意义。如有问题请朋友们指出，小崔及时修正。谢谢啦！废话不多说直接上代码：...
php金钱显示小写转大写
小小天下飞的博客
03-23 398
以下代码是在网上找的，具体出处忘了 class numToUpper{ function del0($num){ //去掉数字段前面的0 return "".intval($num); } function n2c($x){ //单个数字变汉字 $arr_n = array("零","一","二","三","四&qu
java实现金钱数字转大写
xie_cc的专栏
11-25 7820
private static final char [] ChineseNum ={'零','壹','贰','叁','肆','伍','陆','柒','捌','玖'}; private static final char [] ChineseUnit={'里','分','角','元','拾','佰','仟','万','拾','佰','仟','亿','拾','佰','仟'}; /** *
数字金钱转换成中文大写
04-25
本文将详细介绍如何将数字金钱转换成中文大写，并提供相关方法和技术。 一、数字金钱的中文大写规则 1. 单位对应：数字的每一个位数都有对应的中文大写字符。例如： - 个位：零（0）、壹（1）、贰（2）、叁（3）...
金钱大写转小写数字类java（精确到角）
12-07
这是因为中文大写数字在财务领域中使用广泛，可以防止数字篡改，增强账目的安全性。本节将详细探讨如何用Java编程语言实现一个精确到角的中文大写转小写数字的程序。 首先，我们需要了解中文大写数字与阿拉伯数字的...
Python金钱数字转换为大写
03-16
金钱数字转换为大写，最高支持千亿，以及小数位后两位（分）（角）
php数字大写,php数字大写转换的方法
weixin_34043280的博客
03-10 306
php数字大写转换的方法：1、判断$num是否存在；2、将浮点转换为整数；3、将空的变量用来保存转换字符串；4、分割数字，区分圆角分；5、循环计算亿万元等；6、输出转换结果即可。早些年做CRM用到的一个金额转换函数，今天从旧项目中拿出来记录一下。金额转换的函数方法有很多，都很不错。不过这个是作者刚工作的时候写的一个转换函数，多少还是有点纪念意义。如有问题请朋友们指出！废话不多说直接上代码：...
MATLAB-四连杆机构的仿真+项目源码+文档说明
11-17
<项目介绍> - 四连杆机构的仿真 --m3_1.m: 位置问题求解 --m2_1.m: 速度问题求解 --FourLinkSim.slx: Simlink基于加速度方程的仿真 --FourLinkSim2.slx: Simscape简化模型仿真 --FourLinkSim3.slx: Simscape CAD模型仿真 - 不懂运行，下载完可以私聊问，可远程教学 1、该资源内项目代码都经过测试运行成功，功能ok的情况下才上传的，请放心下载使用！ 2、本项目适合计算机相关专业(如计科、人工智能、通信工程、自动化、电子信息等)的在校学生、老师或者企业员工下载学习，也适合小白学习进阶，当然也可作为毕设项目、课程设计、作业、项目初期立项演示等。 3、如果基础还行，也可在此代码基础上进行修改，以实现其他功能，也可用于毕设、课设、作业等。 下载后请首先打开README.md文件（如有），仅供学习参考, 切勿用于商业用途。 --------
ridge_regression:用于岭回归的python代码（已实现以预测下个月的CO2浓度）
最新发布
11-17
ridge_regression 用于岭回归的python代码（已实现以预测下个月的CO2浓度） 资料可用性 文件 Ridge.py ：标准函数和Ridge回归函数window_make.py ：使用滑动窗口方法制作大小为p（窗口大小）的时间序列列表。 Final_version.ipynb ：使用Co2数据对代码进行实验
Polygon3-3.0.8-cp35-cp35m-win_amd64.whl.rar
11-17
python whl离线安装包 pip安装失败可以尝试使用whl离线安装包安装 第一步 下载whl文件，注意需要与python版本配套 python版本号、32位64位、arm或amd64均有区别 第二步 使用pip install XXXXX.whl 命令安装，如果whl路径不在cmd窗口当前目录下，需要带上路径 WHL文件是以Wheel格式保存的Python安装包， Wheel是Python发行版的标准内置包格式。 在本质上是一个压缩包，WHL文件中包含了Python安装的py文件和元数据，以及经过编译的pyd文件， 这样就使得它可以在不具备编译环境的条件下，安装适合自己python版本的库文件。 如果要查看WHL文件的内容，可以把.whl后缀名改成.zip，使用解压软件（如WinRAR、WinZIP）解压打开即可查看。 为什么会用到whl文件来安装python库文件呢？ 在python的使用过程中，我们免不了要经常通过pip来安装自己所需要的包， 大部分的包基本都能正常安装，但是总会遇到有那么一些包因为各种各样的问题导致安装不了的。 这时我们就可以通过尝试去Python安装包大全中（whl包下载）下载whl包来安装解决问题。
【java毕业设计】风俗文化管理系统源码（ssm+mysql+说明文档+LW）.zip
11-17
功能说明： 系统主要分为系统管理员和用户两个部分，系统管理员主要功能包括首页,个人中心,用户管理,节日风俗管理,饮食风俗管理，服饰风俗管理，礼仪风俗管理，信仰风俗管理，建筑风俗管理,我的收藏管理，留言板管理，论坛管理，系统管理。 环境说明： 开发语言：Java 框架：ssm，mybatis JDK版本：JDK1.8 数据库：mysql 5.7及以上 数据库工具：Navicat11及以上 开发软件：eclipse/idea Maven包：Maven3.3及以上 服务器：tomcat7及以上
java 金钱转大写
11-02
// 将数字转换为大写汉字，这里只是一个简化示例，实际应用可能需要更复杂的映射表 String[] digitToChinese = {"零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖"}; StringBuilder result = new ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值