当前位置：首页 -> 技术开发 -> ASP专区 -> 金额阿拉伯数字转换为中文的存储过程（转）

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

时间： 2021-07-31 作者：daque

create procedure atoc@changemoney money asset nocount ondeclare @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 beginselect @string3 = substring(@string4,@i,1)if @string3<>'0' beginselect @ch1 = substring(@string1, cast(@string3 as int) + 1, 1)select @ch2 = substring(@string2, @i, 1)select @zero = 0 --表白本位不为零endelse beginif (@zero = 0) or (@i = @j - 9) or (@i = @j - 5) or (@i = @j - 1)select @ch1 = '零' elseselect @ch1 = ''select @zero = @zero + 1 --表白本位为0--即使变换的数值须要夸大，那么需变换以次表白式 i 的值。select ch2 = ''if @i = @j - 10 beginselect @ch2 = '亿'select @zero = 0endif @i = @j - 6 beginselect @ch2 = '万'select @zero = 0endif @i = @j - 2 beginselect @ch2 = '元'select @zero = 0endif @i = @j select @ch2 = '整'end select @returnvalue = @returnvalue + @ch1 + @ch2select @i = @i+1end--结果将过剩的零去掉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) <> 0select @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 颁布于：2002-3-20

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

相关推荐

推荐下载

热门阅览

最新排行