SQL函数 - 人民币大写转换
作者:C/S框架网|www.csframewo  发布日期:2023/09/15 11:59:01
  SQL函数 - 人民币大写转换


SQL Code:

CREATE FUNCTION [dbo].[ufn_GetRMB](@num numeric(18,2))
RETURNS varchar(200)
AS
BEGIN
  
  
/**********************************************************
  程序说明:SQL函数转人民币大写,www.csframework.com
  -----------------------------------------------------------
  测试案例:
  SELECT dbo.ufn_GetRMB(1);
  SELECT dbo.ufn_GetRMB(1.1);
  SELECT dbo.ufn_GetRMB(1.123);
  SELECT dbo.ufn_GetRMB(999);
  SELECT dbo.ufn_GetRMB(999.0);
  SELECT dbo.ufn_GetRMB(999.1);
  SELECT dbo.ufn_GetRMB(999.99);
  SELECT dbo.ufn_GetRMB(1234567);
  SELECT dbo.ufn_GetRMB(1234567.22);
  SELECT dbo.ufn_GetRMB(123456789000.22);
  
  **********************************************************
*/
  
  
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<=16
  
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 CAST(@num AS bigint)=@num SET @c_data=@c_data+'' ;
    
    
RETURN(@c_data);
    
END
    
    
//来源:C/S框架网 | www.csframework.com | QQ:23404761





C/S框架网|原创精神.创造价值.打造精品


扫一扫加作者微信
C/S框架网作者微信 C/S框架网|原创作品.质量保障.竭诚为您服务
上一篇 下一篇