金额阿拉伯数字转换为中文的存储过程

核心提示：CreateProcedureAtoC@ChangeMoneyMoneyasSet Nocount ONDeclare@String1char(20)Declare@String2char(30)Declare@String4Varchar(100)Declare @String3 Varchar(100)--从原A值

　　Create　　Procedure　　AtoC
　　@ChangeMoney　　Money　　
as
　　Set Nocount ON
　　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, '元元', '元')
　　
　　Select @ReturnValue
GO