人民币小写金额转大写(第二版).docVIP

人民币小写金额转大写(第二版) --人民币小写金额转大写(第二版) /* 功能：小写金额转换成大写 参数：@LowerMoney 小写金额加上小数点最长可以保留位 输出：大写金额 简介：SQL版小写金额转换成大写金额（最多可以精确到小数点四位） 注： Decimal 数据类型最多可存储个数字 ********************************************************/ go --创建函数 create function [dbo].[lowertoupper](@lowermoney decimal(38,4)) returns varchar(200) --返回的大写金额的字符 as begin declare @lowerstr varchar(50) --小写金额 declare @upperstr varchar(200) --大写金额 declare @uppertmp varchar(15) --大写金额的临时字符串 declare @i int --递增量 declare @lowerlen int --小写金额的总长度 set @lowerstr = @lowermoney --把decimal型的值全部赋给字符串变量注:(赋值过去的话如在字符串变量中是显示.0000 因为小数位精确到四位,没有的话，它会自动补) set @lowerstr = replace(@lowerstr,.,) --把小数点替换成空字符 --精确到小数点的四位角分厘毫 set @lowerlen = len(@lowerstr) --获取小写金额的总长度(包括四个小数位) select @i = 1,@upperstr = ,@uppertmp = --设置默认初始值 while @i = @lowerlen begin set @uppertmp = case when substring(@lowerstr,@lowerlen - @i + 1,1) = 0 and @i = 5 and (convert(int,right(@lowerstr,4)) = 0 or @lowerlen 5) then 元 --注：如果个位为的话,并且四位小数都是或者它的长度超过(也就是超过元)，则为元 --when substring(@lowerstr,@lowerlen - @i + 1,1) = 0 then else + case substring(@lowerstr,@lowerlen - @i + 1,1) --看当前位是数字几,就直接替换成汉字繁体大写 when 0 then 零 when 1 then 壹 when 2 then 贰 when 3 then 叁 when 4 then 肆 when 5 then 伍 when 6 then 陆 when 7 then 柒 when 8 then 捌