--更换的最新版本
--另外临时表可以考虑改成永久表
if exists (select * from sysobjects where name = 'sp_convertmoney' and type = 'P')
drop procedure sp_convertmoney
go
create procedure sp_convertmoney
@convmoney numeric(12,2)
as
begin
set nocount on
create table #tmp0 --大小写对比表
(id numeric(2,0) identity not null,
digital char(1) not null,
dx char(2) not null,
)
insert into #tmp0(digital,dx) values('1','壹')
insert into #tmp0(digital,dx) values('2','贰')
insert into #tmp0(digital,dx) values('3','叁')
insert into #tmp0(digital,dx) values('4','肆')
insert into #tmp0(digital,dx) values('5','伍')
insert into #tmp0(digital,dx) values('6','陆')
insert into #tmp0(digital,dx) values('7','柒')
insert into #tmp0(digital,dx) values('8','捌')
insert into #tmp0(digital,dx) values('9','玖')
insert into #tmp0(digital,dx) values('0','零')
create table #tmp1(
id numeric(2,0) identity not null, --序列号码
pos1 integer not null, --数据位置号
num char(1) null , --待转换的数据
unit char(2) null , --单位
dx char(2) null --保存该数据的大写
)
insert into #tmp1 (pos1,unit) values(-2,'分')
insert into #tmp1 (pos1,unit) values(-1,'角')
insert into #tmp1 (pos1,unit) values(0,' ')
insert into #tmp1 (pos1,unit) values(1,'元')
insert into #tmp1 (pos1,unit) values(2,'拾')
insert into #tmp1 (pos1,unit) values(3,'佰')
insert into #tmp1 (pos1,unit) values(4,'仟')
insert into #tmp1 (pos1,unit) values(5,'万')
insert into #tmp1 (pos1,unit) values(6,'拾')
insert into #tmp1 (pos1,unit) values(7,'佰')
insert into #tmp1 (pos1,unit) values(8,'仟')
insert into #tmp1 (pos1,unit) values(9,'亿')
insert into #tmp1 (pos1,unit) values(10,'拾')
insert into #tmp1 (pos1,unit) values(11,'佰')
insert into #tmp1 (pos1,unit) values(12,'仟')
declare @strmoney varchar(15), --声明字符型变量保存输入金额
@revsstrmoney varchar(15), --逆序字符
@len0 smallint, --全部数字长度
@adig char(1), --存放单个数字
@i integer
select @i= 1
select @convmoney = convert(numeric(12,2),@convmoney) --强制转换为 numeric(12,2)格式
select @strmoney = convert(varchar(15),@convmoney)
select @revsstrmoney = reverse(@strmoney)
select @len0 = datalength(@strmoney)
while @i<=@len0
begin
select @adig = substring(@revsstrmoney,@i,1)
update #tmp1 set num = @adig where id = @i
select @i = @i+1
end
update #tmp1 set dx = b.dx from #tmp1 a , #tmp0 b
where a.num = b.digital
/*
select id,num,dx,unit,dx+unit as dx_unit from #tmp1 where num>;='0' and num<='9'
order by id desc
*/
declare @dx_unit varchar(12) ,@result varchar(255)
select @result = ''
declare cursor1 cursor for
select dx+unit as dx_unit from #tmp1 where num>;='0' and num<='9'
order by id desc for read only
open cursor1
fetch cursor1 into @dx_unit
while @@SQLSTATUS =0
begin
select @result = @result +ltrim(rtrim(@dx_unit))
fetch cursor1 into @dx_unit
end
close cursor1
DEALLOCATE cursor cursor1
--select @result
while(charindex('零亿',@result)>;0)
begin
select @result = stuff(@result,charindex('零亿',@result) ,4,'亿')
end
while(charindex('零万',@result)>;0)
begin
select @result = stuff(@result,charindex('零万',@result) ,4,'万')
end
while(charindex('零仟',@result)>;0)
begin
select @result = stuff(@result,charindex('零仟',@result) ,4,'零')
end
while(charindex('零佰',@result)>;0)
begin
select @result = stuff(@result,charindex('零佰',@result) ,4,'零')
end
while(charindex('零拾',@result)>;0)
begin
select @result = stuff(@result,charindex('零拾',@result) ,4,'零')
end
while(charindex('零元',@result)>;0)
begin
select @result = stuff(@result,charindex('零元',@result) ,4,'元')
end
while(charindex('零万',@result)>;0)
begin
select @result = stuff(@result,charindex('零万',@result) ,4,'万')
end
while(charindex('零角',@result)>;0)
begin
select @result = stuff(@result,charindex('零角',@result) ,4,'零')
end
while(charindex('零分',@result)>;0)
begin
select @result = stuff(@result,charindex('零分',@result) ,4,'零')
end
while(charindex('零零',@result)>;0)
begin
select @result = stuff(@result,charindex('零零',@result) ,4,'零')
end
while(charindex('亿万',@result)>;0)
begin
select @result = stuff(@result,charindex('亿万',@result) ,4,'亿')
end
if @convmoney = convert(numeric(12,0),@convmoney) --整数
select @result = substring( @result , 1 , charindex('元',@result)+1)+'整'
select @result= ltrim(rtrim(@result))
--解决只有小数的情况
select @result = ltrim(rtrim(@result))
if @result like '元%'
begin
select @result =substring( @result , 3 ,datalength(@result)-2)
select @result= ltrim(rtrim(@result))
end
--去第一个零
if @result like '零%'
begin
select @result = substring( @result , 3,datalength(@result)-2)
select @result = ltrim(rtrim(@result))
end
--去最后一个零
if @result like '%零'
begin
select @result = substring( @result , 1,datalength(@result)-2)
select @result = ltrim(rtrim(@result))
end
select @result
end
zhangyh123 回复于：2003-09-23 11:39:39
请大家帮助测试看看 并希望给更好的方案
zhangyh123 回复于：2003-09-23 14:23:47
测试用例子
sp_convertmoney 0.05 伍分
sp_convertmoney 0.45 肆角伍分
sp_convertmoney 1.45 壹元肆角伍分
sp_convertmoney 1.00 壹元整
sp_convertmoney 1.01 壹元零壹分
sp_convertmoney 10.01 壹拾元零壹分
sp_convertmoney 10.81 壹拾元捌角壹分
sp_convertmoney 190.81 壹佰玖拾元捌角壹分
sp_convertmoney 100 壹佰元整
sp_convertmoney 100.01 壹佰元零壹分
sp_convertmoney 1000.10 壹仟元壹角
sp_convertmoney 10000 壹万元整
sp_convertmoney 10000.02 壹万元零贰分
sp_convertmoney 1030000 壹佰零叁万元整
sp_convertmoney 1030000.99 壹佰零叁万元玖角玖分
sp_convertmoney 10000000.01 壹仟万元零壹分
sp_convertmoney 10000000 壹仟万元整
sp_convertmoney 100000000 壹亿元整
sp_convertmoney 100000100 壹亿零壹佰元整
负数没有考虑
如果是0 ，自己可以加一句判断 ,怎么返回看自己要求
if @convmoney =0
begin
select '零元整'
return
end
liugr3988 回复于：2003-09-23 16:13:04
很好，顶！
Blackrose 回复于：2003-09-23 21:50:08
A.
1>; sp_convertmoney 0.111
2>; go
Msg 241, Level 16, State 2:
Server 'LOCAL', Procedure 'sp_convertmoney':
Scale error during implicit conversion of NUMERIC value '0.111' to a NUMERIC
field.
是不是考虑添加一点四舍五入（可以选择）的功能，或者一点容错...
B.
最大好像就是
玖拾玖亿玖仟玖佰玖拾玖万玖仟玖佰玖拾玖元玖角玖分
不错，算法没有仔细看，功能还是good！！！！
zhangyh123 回复于：2003-09-24 09:17:41
引用：原帖由 "Blackrose" 发表：
A.
1>; sp_convertmoney 0.111
2>; go
Msg 241, Level 16, State 2:
Server 'LOCAL', Procedure 'sp_convertmoney':
Scale error during implicit conversion of NUMERIC value '0.111' to a NUMERIC
fie..........
第一 输入必须自己格式化为 numeric(12,2)数据类型。这个是调用的时候出错，不是内部错误。 :)
第二 如果需要更大的可以将程序略改一点，增加一下位数，以及临时表的记录就可以了
我最多用到千万的说 :)
jazy 回复于：2003-09-24 12:58:04
想法不错，支持一下！！
chenfeng825 回复于：2003-09-24 13:03:57
呵呵。jazy好久没见来了。
|
