将小写金额转换为中文大写

CREATE   FUNCTION   [dbo].[f_num_chn]   (@num   numeric(14,2))   
  RETURNS   varchar(100)   WITH   ENCRYPTION   
  AS   
  BEGIN   
  --版权所有：csli888   
      DECLARE   @n_data   VARCHAR(20),@c_data   VARCHAR(100),@n_str   VARCHAR(10),@i   int   
    
      SET   @n_data=RIGHT(SPACE(14)+CAST(CAST(ABS(@num*100)   AS   bigint)   AS   varchar(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('零壹贰叁肆伍陆柒捌玖',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('仟佰拾亿仟佰拾万仟佰拾圆角分',@i,1)   
              IF   SUBSTRING(@c_data,LEN(@c_data)-1,2)='亿万'   
                  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