将小写金额转换为中文大写的SQL函数

CREATE FUNCTION [dbo].[f_num_chn] (@num numeric(14,2))
RETURNS varchar(100WITH ENCRYPTION
AS
BEGIN
--版权所有:pbsql
  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*100AS bigintAS 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=4or (@i=8or (@i=12or (@i=14))))
        
SET @c_data=@c_data+SUBSTRING('零壹贰叁肆伍陆柒捌玖',CAST(@n_str AS int)+1,1)
      
IF not ((@n_str='0'and (@i<>4and (@i<>8and (@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


posted @ 2007-06-21 16:44  Athrun  阅读(442)  评论(0编辑  收藏  举报