CREATE FUNCTION usf_ChineseCost
(
 @Cost float
)
RETURNS varchar(50)
AS
----大寫錢數----
BEGIN
 declare @returnStr varchar(50)
 if (@Cost >= 1000000000)
 Begin
 set @returnStr = '##########'
 return @returnStr
 end 
 set @returnStr = '00000000000'
 set @returnStr = right(@returnStr + convert(varchar,convert(decimal(11,2),round(@cost,2))),12)
 set @returnStr = replace(@returnStr,'0','零')
 set @returnStr = replace(@returnStr,'1','壹')
 set @returnStr = replace(@returnStr,'2','貳')
 set @returnStr = replace(@returnStr,'3','叁')
 set @returnStr = replace(@returnStr,'4','肆')
 set @returnStr = replace(@returnStr,'5','伍')
 set @returnStr = replace(@returnStr,'6','陸')
 set @returnStr = replace(@returnStr,'7','柒')
 set @returnStr = replace(@returnStr,'8','捌')
 set @returnStr = replace(@returnStr,'9','玖')
 
 set @returnStr = @returnStr + '分'
 set @returnStr = stuff(@returnStr,len(@returnStr)-1,0,'角')
 set @returnStr = replace(@returnStr,'.','元')
 set @returnStr = stuff(@returnStr,len(@returnStr)-5,0,'拾')
 set @returnStr = stuff(@returnStr,len(@returnStr)-7,0,'百')
 set @returnStr = stuff(@returnStr,len(@returnStr)-9,0,'千')
 set @returnStr = stuff(@returnStr,len(@returnStr)-11,0,'萬')
 set @returnStr = stuff(@returnStr,len(@returnStr)-13,0,'拾')
 set @returnStr = stuff(@returnStr,len(@returnStr)-15,0,'百')
 set @returnStr = stuff(@returnStr,len(@returnStr)-17,0,'千')
 set @returnStr = stuff(@returnStr,len(@returnStr)-19,0,'億')

 set @returnStr = replace(@returnStr,'零億','零')
 set @returnStr = replace(@returnStr,'零千','零')
 set @returnStr = replace(@returnStr,'零百','零')
 set @returnStr = replace(@returnStr,'零拾','零')
 set @returnStr = replace(@returnStr,'零零零','零')
 set @returnStr = replace(@returnStr,'零零','零')
 set @returnStr = replace(@returnStr,'零萬','萬')
 set @returnStr = replace(@returnStr,'零元','元')
 set @returnStr = replace(@returnStr,'零角','零')
 set @returnStr = replace(@returnStr,'零分','')

 while left(@returnStr,1) = '零'
 Begin
 set @returnStr = right(@returnStr,len(@returnStr)-1)
 end
 if ((left(@returnStr,1)='萬')) 
 begin
 set @returnStr = right(@returnStr,len(@returnStr)-1)
 end
 if ((left(@returnStr,1)='元')) 
 begin
 set @returnStr = right(@returnStr,len(@returnStr)-1)
 end
 while left(@returnStr,1) = '零'
 Begin
 set @returnStr = right(@returnStr,len(@returnStr)-1)
 end
 while right(@returnStr,1) = '零'
 Begin
 set @returnStr = left(@returnStr,len(@returnStr)-1)
 end

 set @returnStr = replace(@returnStr,'億萬','億零')
 set @returnStr = replace(@returnStr,'零元','元')
 set @returnStr = replace(@returnStr,'零零零','零')
 set @returnStr = replace(@returnStr,'零零','零')

 if (@returnStr='') 
 begin
 set @returnStr = '零元'
 end
 if ((right(@returnStr,1)='元')) 
 begin
 set @returnStr = @returnStr + '整'
 end
 return @returnStr
END