把阿拉伯数字转换成汉字

set ANSI_NULLS ON


set QUOTED_IDENTIFIER ON


go






-- =============================================


-- Author: <--->


-- Create date: <2008-3-4>


-- Description: <将阿拉伯数字转换成汉字大写>


-- =============================================


ALTER function [dbo].[ConvertNumberToChinese](@inputId money)


RETURNS Nvarchar(4000) AS


BEGIN


declare @rV Nvarchar(4000)




declare @tmpstr Nvarchar(4000),@M Nvarchar(4000),@K Nvarchar(4000),@I numeric(38,2),


@J int,@lastJ int,@LastV Nvarchar(10),@LastF Nvarchar(10),@LastE Nvarchar(10),@LastVE Nvarchar(10)


set @I=@inputId


set @K=N''




if @I<0


begin


set @I=0-@I


set @K=N'负'


end


if @I=0 return N'零元整'




select @tmpstr=N'零壹贰叁肆伍陆柒捌玖分角元拾佰仟万拾佰仟亿拾佰仟',@M=cast(cast(@I*100 as bigint) as varchar(800)),@J=len(@M),@LastVE=N''


while @J>=1


begin


set @LastF=substring(@tmpstr, cast(substring(@m,len(@M)-@j+1,1) as bigint)+1,1)


set @LastE=substring(@tmpstr,10+@J,1)


if @LastF<>N'零'


begin


if @LastV=N'零'


if (@lastJ>=7 and @j<7) or (@lastJ>=11 and @j<11 ) or (@lastJ>=3 and @j<=2)


if @J<=2 and @lastJ<=3


set @K=@K+@LastVE+@LastF+@LastE


else


set @K=@K+@LastVE+@LastV+@LastF+@LastE


else


set @K=@K+@LastV+@LastF+@LastE


else


set @K=@K+@LastF+@LastE


select @lastJ=@j,@LastVE=N''


end


else


begin


if @LastVE=N'' and @lastJ>11 set @LastVE=N'亿'


if @LastVE=N'' and @lastJ>7 and @lastJ<10 set @LastVE=N'万'


if @LastVE=N'' and @lastJ>3 and @lastJ<6 set @LastVE=N'元'


if @LastVE=N'' and @lastJ>2 set @LastVE=N'零'


if @LastV<>N'零' set @lastJ=@j


end


set @LastV=@LastF


set @J=@J-1


end


if @lastJ>=6 set @K=@K+@LastVE


if @lastJ>=3 set @K=@K+N'元'


if @lastJ>1 or (@lastJ=1 and @LastV=N'零') set @K=@K+N'整'




set @rv=@K




return @rv


END