金额小写转大写
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
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步