zoukankan      html  css  js  c++  java
  • 数字转人民币大写(SQL SERVER)

    --数字转人民币大写NumToRMB ---新建方法
    create  FUNCTION dbo.NumToRMB (@num numeric(14,5))  
    RETURNS varchar(100) WITH ENCRYPTION  
    AS  
    BEGIN  
      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

    -- SELECT dbo.NumToRMB(20)

  • 相关阅读:
    复制工程或修改工程名字后找不到第三方库解决方法
    描述文件不匹配的解决方法
    JSON Code3840错误
    swift介绍和语言概述
    swift
    新入行程序员应知的十个秘密
    signal SIGABRT
    属性,属性赋值及其内存管理
    HTTP网络请求
    使用类目删除可变字符串中重复字母的一个算法
  • 原文地址:https://www.cnblogs.com/shijiaoyun/p/4121354.html
Copyright © 2011-2022 走看看