您的位置:首页技术开发数据库技巧 → 金额阿拉伯数字转换为中文的自定义函数

金额阿拉伯数字转换为中文的自定义函数

时间:2004/12/2 0:59:00来源:本站整理作者:蓝点我要评论(0)

CREATE FUNCTION ChangeBigSmall

(@ChangeMoney money)  

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




相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 mssql企业管理器不能打 Oracle PRKC-1002错误原因和解决方案SQL SERVER数据库日志清空图文教程win2003计算机改名后sql server 2005 本地复DB2错误信息码大全

人气排行 彻底解决mysql中文乱码的办法mysql数据库root密码忘记的修改方法SQL SERVER数据库日志清空图文教程.bak备份文件如何恢复Oracle PRKC-1002错误原因和解决方案Oracle错误代码大全如何将txt的文本数据导入SQL server 2005呢DB2错误信息码大全