SQL Server2005数字转中文大写字母

SQL Server2005数字转中文大写字母：

set ANSI_NULLS ON   
set QUOTED_IDENTIFIER ON   
go   
alter FUNCTION [dbo].[fn_numToChn] (@num numeric(14,2))          
    RETURNS nvarchar(100)       
    AS          
    BEGIN          
    --版权所有：ahshow          
            DECLARE @n_data nVARCHAR(20),@c_data nVARCHAR(100),@n_str nVARCHAR(10),@i int          
           
            SET @n_data=RIGHT(SPACE(14)+CAST(CAST(ABS(@num*100) AS bigint) AS nvarchar(20)),14)          
            SET @c_data= ’’          
            SET @i=1          
            WHILE @i <=14          
            BEGIN          
                    SET @n_str=SUBSTRING(@n_data,@i,1)          
                    IF @n_str <> ’’          
                    BEGIN          
                            IF not ((SUBSTRING(@n_data,@i,2)= ’00’) or          
                                    ((@n_str= ’0’) and ((@i=4) or (@i=8) or (@i=12) or (@i=14))))          
                                    SET @c_data=@c_data+SUBSTRING( N’零壹贰叁肆伍陆柒捌玖’,CAST(@n_str AS int)+1,1)          
                            IF not ((@n_str= ’0’) and (@i <> 4) and (@i <> 8) and (@i <> 12))          
                                    SET @c_data=@c_data+SUBSTRING( N’仟佰拾亿仟佰拾万仟佰拾圆角分’,@i,1)          
                            IF SUBSTRING(@c_data,LEN(@c_data)-1,2)= N’亿万’          
                                    SET @c_data=SUBSTRING(@c_data,1,LEN(@c_data)-1)          
                    END          
                    SET @i=@i+1          
            END          
            IF @num <0          
                    SET @c_data= ’（负数）’+@c_data          
            IF @num=0          
                    SET @c_data= ’零圆’          
            IF @n_str= ’0’          
                    SET @c_data=@c_data+ ’元整’          
            RETURN(@c_data)          
    END