SQL小写金额换大写金额
2008-03-22 17:50
549 查看
/*转换小写数字为大写数字*/
declare @l varchar(100) -- 小写金额
declare @u1 varchar(100)
declare @u varchar(100)-- 大写金额
declare @i int
set @l='123456000.789'
set @i=1
set @l = ltrim(rtrim(str(@l,20,2))) --保留两位小数并删除数据左右空格
select @u = '' --置初值
while ( @i <= len(@l))--大于字符串长度即退出
begin
set @u1=
case substring(@l,len(@l) - @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
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 '拾'
when 14 then '佰'
else ''
end
set @u = @u1+@u
--连接上次循环的字符串,从右向左倒序连接
set @i = @i+1
--递增,下次循环取上一字符
end
select @u = replace(@u,'零圆','零')
select @u = replace(@u,'零拾','零')
select @u = replace(@u,'零佰','零')
select @u = replace(@u,'零仟','零')
select @u = replace(@u,'零零零','零')
select @u = replace(@u,'零零','零')
select @u = replace(@u,'零角零分','整')
select @u = replace(@u,'零分','整')
select @u = replace(@u,'零角','零')
select @u = replace(@u,'零亿零万零元','亿元')
select @u = replace(@u,'亿零万零元','亿元')
select @u = replace(@u,'零亿零万','亿')
select @u = replace(@u,'零万零元','万元')
select @u = replace(@u,'万零元','万元')
select @u = replace(@u,'零亿','亿')
select @u = replace(@u,'零万','万')
select @u = replace(@u,'零元','元')
select @u = replace(@u,'零零','零')
print @u
declare @l varchar(100) -- 小写金额
declare @u1 varchar(100)
declare @u varchar(100)-- 大写金额
declare @i int
set @l='123456000.789'
set @i=1
set @l = ltrim(rtrim(str(@l,20,2))) --保留两位小数并删除数据左右空格
select @u = '' --置初值
while ( @i <= len(@l))--大于字符串长度即退出
begin
set @u1=
case substring(@l,len(@l) - @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
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 '拾'
when 14 then '佰'
else ''
end
set @u = @u1+@u
--连接上次循环的字符串,从右向左倒序连接
set @i = @i+1
--递增,下次循环取上一字符
end
select @u = replace(@u,'零圆','零')
select @u = replace(@u,'零拾','零')
select @u = replace(@u,'零佰','零')
select @u = replace(@u,'零仟','零')
select @u = replace(@u,'零零零','零')
select @u = replace(@u,'零零','零')
select @u = replace(@u,'零角零分','整')
select @u = replace(@u,'零分','整')
select @u = replace(@u,'零角','零')
select @u = replace(@u,'零亿零万零元','亿元')
select @u = replace(@u,'亿零万零元','亿元')
select @u = replace(@u,'零亿零万','亿')
select @u = replace(@u,'零万零元','万元')
select @u = replace(@u,'万零元','万元')
select @u = replace(@u,'零亿','亿')
select @u = replace(@u,'零万','万')
select @u = replace(@u,'零元','元')
select @u = replace(@u,'零零','零')
print @u
相关文章推荐
- SQL人民币小写金额转大写
- 金额大写转小写SQL(未测试)
- PL/SQL 小写金额转化成大写(汉字)
- (转)人民币小写金额转大写(SQL)
- SBO小写金额转换中文大写SQL
- SQL 小写金额转换成大写
- SQL 小写转大写金额
- 【SQL】Oracle实现小写金额转换成大写的方法
- SQL金额小写转大写
- 小写转大写金额
- flex 下的金额小写转大写 (原创)
- Java将小写金额转换成大写
- js 将页面小写金额转换成大写金额
- 最精简的小写金额转大写的函数
- 小写数字金额,转换成大写中文,绝无错误
- 最精简的小写金额转大写的函数
- 金额小写转中文大写
- 用java将小写的金额转换为大写的金额
- js数字小写金额转中文大写
- ORACLE SQL 金额从小写到大写的转换