金额小写转大写
CREATE PROCEDURE [dbo].[TranNumberToBigForDecrypt]
(
@n_LowerMoney numeric(15,2),
@v_TransType int,
@RET VARCHAR(200) output
)
--with ENCRYPTION
AS
/**********************************
descript:解密exec sp_decrypt 'TranNumberToBig'
*/
Declare @v_LowerStr VARCHAR(200) -- 小写金额
Declare @v_UpperPart VARCHAR(200)
Declare @v_UpperStr VARCHAR(200) -- 大写金额
Declare @startstr varchar(30) --点号前面的部分
Declare @endstr varchar(30) --点号后面部分
Declare @i_I int,@idx int,@e_I int,@i int
Declare @end_Upper varchar(100),@end_Part varchar(100)
select @v_LowerStr = LTRIM(RTRIM(convert(varchar(30),@n_LowerMoney))) --变成字符串并删除数据左右空格
--if(charindex('.',@v_LowerStr)>0)
begin
set @idx=charindex('.',@v_LowerStr)
set @startstr=substring(@v_LowerStr,1,@idx-1)
--print @v_LowerStr
select @i_I = 1
select @v_UpperStr = ''
while ( @i_I <= len(@startstr))
begin
select @v_UpperPart = case substring(@startstr,len(@startstr) - @i_I + 1,1)
WHEN '.' THEN ''
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 '捌'
WHEN '9' THEN '玖'
END
+
case @i_I
WHEN 1 THEN ''
WHEN 2 THEN '拾'
WHEN 3 THEN '佰'
WHEN 4 THEN '仟'
WHEN 5 THEN '万'
WHEN 6 THEN '拾'
WHEN 7 THEN '佰'
WHEN 8 THEN '仟'
WHEN 9 THEN '亿'
WHEN 10 THEN '拾'
WHEN 11 THEN '佰'
WHEN 12 THEN '仟'
WHEN 13 THEN '万'
ELSE ''
END
select @v_UpperStr = @v_UpperPart + @v_UpperStr
select @i_I = @i_I + 1
end
--if ( @v_TransType=0 )
--begin
--print @v_UpperStr
select @v_UpperStr = REPLACE(@v_UpperStr,'零佰零拾','零')
select @v_UpperStr = REPLACE(@v_UpperStr,'零仟','')
select @v_UpperStr = REPLACE(@v_UpperStr,'零佰','')
select @v_UpperStr = REPLACE(@v_UpperStr,'零拾','零')
select @v_UpperStr = REPLACE(@v_UpperStr,'拾零','拾')
select @v_UpperStr = REPLACE(@v_UpperStr,'零零','')
--end
select @endstr=LTRIM(RTRIM(substring(@v_LowerStr,@idx,len(@v_LowerStr)-@idx+1)))
select @e_I=1
select @end_Part=''
select @end_Upper=''
while(@e_I<=len(@endstr))
begin
select @end_Part=case substring(@endstr,@e_I,1)
WHEN '.' THEN '点'
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 '捌'
WHEN '9' THEN '玖'
END
select @end_Upper=@end_Upper+@end_Part
select @e_I=@e_I+1
end
set @i=len(@end_Upper)
while(@i>0)
begin
if(right(@end_Upper,1)='零' or right(@end_Upper,1)='点')
begin
select @end_Upper=left(@end_Upper,@i-1)
select @i=@i-1
end
else
break
end
--select @Part=@v_UpperStr+@end_Upper
select @ret=@v_UpperStr+@end_Upper
end
GO