金钱转大写，数字转大写

最新推荐文章于 2021-03-28 21:08:10 发布
原创 最新推荐文章于 2021-03-28 21:08:10 发布 · 1.3k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#string #function

CREATE FUNCTION CapitalRMB(@ChangeMoney numeric(15,2)) 
RETURNS VarChar(100) AS 
BEGIN
    Declare    @String1    char(20)
    Declare    @String2    char(30)
    Declare    @String4    Varchar(100)
    Declare @String3     Varchar(100)    --从原A值中取出的值
    Declare @i         int        --循环变量
    Declare @J         Int        --A的值乘以100的字符串长度
    Declare @Ch1         Varchar(100)    --数字的汉语读法
    Declare @Ch2         Varchar(100)    --数字位的汉字读法
    Declare @Zero         Int        --用来计算连续有几个零
    Declare    @ReturnValue    VarChar(100)
    Select  @ReturnValue = ''
    Select     @String1 = '零壹贰叁肆伍陆柒捌玖'
    Select    @String2 = '万仟佰拾亿仟佰拾万仟佰拾元角分'
    Select @String4 = Cast(@ChangeMoney*100 as int)   
    select @J=len(cast((@ChangeMoney*100) as int))
    Select @String2=Right(@String2,@J)
    Select    @i = 1
    while    @i<= @j Begin
        Select @String3 = Substring(@String4,@i,1)
        if @String3<>'0' Begin
            Select     @Ch1 = Substring(@String1, Cast(@String3 as Int) + 1, 1)
            Select    @Ch2 = Substring(@String2, @i, 1)
            Select    @Zero = 0                    --表示本位不为零
        end
        else Begin
            If (@Zero = 0) Or (@i = @J - 9) Or (@i = @J - 5) Or (@i = @J - 1)
                        Select @Ch1 = '零'
                    Else
                        Select @Ch1 = ''
                    Select @Zero = @Zero + 1             --表示本位为0
                       
            --如果转换的数值需要扩大，那么需改动以下表达式 I 的值。
            Select @Ch2 = ''
                If @i = @J - 10  Begin
                        Select @Ch2 = '亿'
                        Select @Zero = 0
            end
                   
            If @i = @J - 6 Begin
                        Select @Ch2 = '万'
                        Select @Zero = 0
            end
                   
            if @i = @J - 2 Begin
                        Select @Ch2 = '元'
                        Select @Zero = 0
            end
                   
            If @i = @J
                        Select @Ch2 = '整'
                       
        end   
        Select @ReturnValue = @ReturnValue + @Ch1 + @Ch2
        select @i = @i+1
    end
    --最后将多余的零去掉
    If CharIndex('仟仟',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '仟仟', '仟')
    If CharIndex('佰佰',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '佰佰', '佰')
        If CharIndex('零元',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零元', '元')
   
        If CharIndex('零万',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零万', '万')
  
        If CharIndex('零亿',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零亿', '亿')
   
        If CharIndex('零整',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零整', '整')
   
    If CharIndex('零佰',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零佰', '零')
    If CharIndex('零仟',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零仟', '零')
    If CharIndex('元元',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '元元', '元')
    return @ReturnValue
END

二、小写数字转大写数字

CREATE  FUNCTION CapitalNUM(@ChangeMoney numeric(15,2)) 
RETURNS VarChar(100) AS 
BEGIN
    Declare    @String1    char(20)
    Declare    @String2    char(30)
    Declare    @String4    Varchar(100)
    Declare @String3     Varchar(100)    --从原A值中取出的值
    Declare @i         int        --循环变量
    Declare @J         Int        --A的值乘以100的字符串长度
    Declare @Ch1         Varchar(100)    --数字的汉语读法
    Declare @Ch2         Varchar(100)    --数字位的汉字读法
    Declare @Zero         Int        --用来计算连续有几个零
    Declare    @ReturnValue    VarChar(100)
    Select  @ReturnValue = ''
    Select     @String1 = '零壹贰叁肆伍陆柒捌玖'
    Select    @String2 = '万仟佰拾亿仟佰拾万仟佰拾点零零'
    Select @String4 = Cast(@ChangeMoney*100 as int)   
    select @J=len(cast((@ChangeMoney*100) as int))
    Select @String2=Right(@String2,@J)
    Select    @i = 1
    while    @i<= @j Begin
        Select @String3 = Substring(@String4,@i,1)
        if @String3<>'0' Begin
            Select     @Ch1 = Substring(@String1, Cast(@String3 as Int) + 1, 1)
            Select    @Ch2 = Substring(@String2, @i, 1)
            Select    @Zero = 0                    --表示本位不为零
        end
        else Begin
            If (@Zero = 0) Or (@i = @J - 9) Or (@i = @J - 5) Or (@i = @J - 1)
                        Select @Ch1 = '零'
                    Else
                        Select @Ch1 = ''
                    Select @Zero = @Zero + 1             --表示本位为0
                       
            --如果转换的数值需要扩大，那么需改动以下表达式 I 的值。
            Select @Ch2 = ''
                If @i = @J - 10  Begin
                        Select @Ch2 = '亿'
                        Select @Zero = 0
            end
                   
            If @i = @J - 6 Begin
                        Select @Ch2 = '万'
                        Select @Zero = 0
            end
                   
            if @i = @J - 2 Begin
                        Select @Ch2 = '点'
                        Select @Zero = 0
            end
                   
            If @i = @J
                        Select @Ch2 = '整'
                       
        end   
if  (@i = @J) or ( @i = @J-1) begin
     Select @Ch2 = ''
end
        Select @ReturnValue = @ReturnValue + @Ch1 + @Ch2
        select @i = @i+1
    end
    --最后将多余的零去掉
    If CharIndex('仟仟',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '仟仟', '仟')
    If CharIndex('佰佰',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '佰佰', '佰')
        If CharIndex('零元',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零元', '元')
   
        If CharIndex('零万',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零万', '万')
  
        If CharIndex('零亿',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零亿', '亿')
   
        If CharIndex('零整',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零整', '整')
   
    If CharIndex('零佰',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零佰', '零')
    If CharIndex('零仟',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零仟', '零')
   
      If CharIndex('零点零',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零点零', '')
      If CharIndex('零点',@ReturnValue) <> 0
            Select @ReturnValue = Replace(@ReturnValue, '零点', '点')
return @ReturnValue
END

三、小写数字直接改大写数字，不加十百千万，一对一转

create  FUNCTION CapitalDig(@ChangeMoney numeric(15,2)) 
RETURNS VarChar(100) AS 
BEGIN
    Declare    @String1    char(20)
 
    Declare    @String4    Varchar(100)
    Declare @String3     Varchar(100)    --从原A值中取出的值
    Declare @i         int        --循环变量
    Declare @J         Int        --A转换成字符串的长度
    Declare @Ch1         Varchar(100)    --数字的汉语读法
 
    Declare    @ReturnValue    VarChar(100)
    Select  @ReturnValue = ''
    Select     @String1 = '零壹贰叁肆伍陆柒捌玖'
 
    Select @String4 = Cast(@ChangeMoney as int)   
    select @J=len(cast((@ChangeMoney ) as int))
 
    Select    @i = 1
    while    @i<= @j Begin
        Select @String3 = Substring(@String4,@i,1)
   
            Select     @Ch1 = Substring(@String1, Cast(@String3 as Int) + 1, 1)
     
                  Select @ReturnValue = @ReturnValue + @Ch1     
        select @i = @i+1
 end
       return @ReturnValue
END

 

本文来自优快云博客，转载请标明出处：http://blog.youkuaiyun.com/richie441111/archive/2011/01/03/6114373.aspx

C#数字转大写人民币
我曾经是个程序员
01-03 1265
private static readonly char[] ChineseNumbers = { '零', '壹', '贰', '叁', '肆', '伍', '陆', '柒', '捌', '玖' };private static readonly string[] BigUnits = { "", "万", "亿", "兆" };private static readonly string[] Units = { "", "拾", "佰", "仟" };builder.Insert(0, "零元");
数字金钱转换成中文大写
04-25
本文将详细介绍如何将数字金钱转换成中文大写，并提供相关方法和技术。 一、数字金钱的中文大写规则 1. 单位对应：数字的每一个位数都有对应的中文大写字符。例如： - 个位：零（0）、壹（1）、贰（2）、叁（3）...
Java金钱转换大写
我一直想飞
03-30 1271
优快云的第一篇文章 public class  ConvertMoney {//   支持传入10为整数和两位小数  //实例化后调用numToChinese方法,传入String参数  public  String numToChinese(String input)  {                 if(input.indexOf(".")!=-1)          
金钱数字转换为大写中文
qq165285727的专栏
11-27 1975
效果图如下：           ///         /// 金钱数字转换为大写中文         ///         ///         ///         public static string ConvertToChinese(Decimal number)         {
金钱大写转数字类型，精确到分
01-18
支持大写金额壹---玖大写中文转换数字类型，精确到分，测试到亿（实际应该用不到亿），看到16年写的有问题，今天忽然看了修改了一下
数字转中文数字大写
QZC78的博客
07-24 1114
财务中文大写，阿拉伯数字转中文数字大写，数字转化大写汉字
金额数字 转中文大写
qq_43653325的博客
09-23 857
金额数字 转中文大写 有三种办法: //方法一: 代码最少: export function DX1(n) { if (!/^(0|[1-9]\d*)(\.\d+)?$/.test(n)) return "数据非法"; var unit = "仟佰拾亿仟佰拾万仟佰拾元角分", str = ""; n += "00"; var p = n.indexOf('.'); i...
php 数字小写转大写,php将金钱小写数字转为金钱大写的方法
weixin_39974557的博客
03-28 158
function change_num($num){$d = array('零','壹','贰','叁','肆','伍','陆','柒','捌','玖');$e = array('元','拾','佰','仟','万','拾万','佰万','仟万','亿','拾亿','佰亿','仟亿','万亿');$p = array('分','角');$zheng='整'; //追加"整"字$final = ar...
数字转货币金钱中文大写
小书包的博客
11-29 390
第一版 package com.demo; /** * @author Administrator * @date 2018/11/29 22:46 */ public class NumToChinese { private String[] suffixArr = new String[]{"", "拾", "佰", "仟", "万", "拾万", "佰万&q
php大写数字转换,php如何实现数字金额转换大写金额（代码示例）
weixin_29179311的博客
03-09 441
本篇文章给大家带来的内容是关于php如何实现数字金额转换大写金额(代码示例)，有一定的参考价值，有需要的朋友可以参考一下，希望对你有所帮助。早些年做CRM用到的一个金额转换函数，今天从旧项目中拿出来记录一下。金额转换的函数方法有很多，都很不错。不过这个是小崔刚工作的时候写的一个转换函数，多少还是有点纪念意义。如有问题请朋友们指出，小崔及时修正。谢谢啦！废话不多说直接上代码：...
金钱数字转换成中文数值
SIMBA1949的博客
01-30 506
金钱数字转换成中文数值 package top.simba1949; import java.util.*; /** * 设计思路： * 将字符串通过小数点分割为整数部分和小数部分（小数部分取2位） * * 整数部分处理思路： * 数字字符串从后往前数，每8位一个单元，千百十万千百十个+单位 * 每个单元，第三位是万位，需要特殊处理， * |->如果万前面存在数字，但是万位没有数值，需要添加上万， * |->如果万前面没
mysql函数，将数字金额转成人民币大写
06-12
-- 定义人民币大写数字的对应关系 DECLARE digit_map CHAR(10) DEFAULT '零壹贰叁肆伍陆柒捌玖'; -- ... -- 实现转换逻辑 SET rmb_str = ...; RETURN rmb_str; END // DELIMITER ; ``` 在`...`部分，你...
金钱大写转小写数字类java（精确到角）
12-07
这是因为中文大写数字在财务领域中使用广泛，可以防止数字篡改，增强账目的安全性。本节将详细探讨如何用Java编程语言实现一个精确到角的中文大写转小写数字的程序。 首先，我们需要了解中文大写数字与阿拉伯数字的...
精选资源
Python金钱数字转换为大写
03-16
金钱数字转换为大写，最高支持千亿，以及小数位后两位（分）（角）
php金钱显示小写转大写
小小天下飞的博客
03-23 438
以下代码是在网上找的，具体出处忘了 class numToUpper{ function del0($num){ //去掉数字段前面的0 return "".intval($num); } function n2c($x){ //单个数字变汉字 $arr_n = array("零","一","二","三","四&qu
liyongde113_EduPhysics-Lab-App_30012_1766464654037.zip
12-23
liyongde113_EduPhysics-Lab-App_30012_1766464654037.zip
Android中获取应用程序列表信息
12-23
源码来自：https://pan.quark.cn/s/a3a3fbe70177 AppBrowser(Application属性查看器，不需要越狱！ ！ ！ ) 不需要越狱，调用私有方法 --- 获取完整的已安装应用列表、打开和删除应用操作、应用运行时相关信息的查看。 支持iOS10.X 注意 目前AppBrowser不支持iOS11应用查看, 由于iOS11目前还处在Beta版, 系统API还没有稳定下来。 等到Private Header更新了iOS11版本,我也会进行更新。 功能 [x] 已安装的应用列表 [x] 应用的详情界面 (打开应用，删除应用，应用的相关信息展示) [x] 应用运行时信息展示（LSApplicationProxy） [ ] 定制喜欢的字段，展示在应用详情界面 介绍 所有已安装应用列表（应用icon+应用名） 为了提供思路，这里只用伪代码，具体的私有代码调用请查看： 获取应用实例： 获取应用名和应用的icon： 应用列表界面展示： 应用列表 应用运行时详情 打开应用： 卸载应用： 获取info.plist文件： 应用运行时详情界面展示： 应用运行时详情 右上角，从左往右第一个按钮用来打开应用；第二个按钮用来卸载这个应用 INFO按钮用来解析并显示出对应的LSApplicationProxy类 树形展示LSApplicationProxy类 通过算法，将LSApplicationProxy类，转换成了字典。 转换规则是：属性名为key，属性值为value，如果value是一个可解析的类（除了NSString,NSNumber...等等）或者是个数组或字典，则继续递归解析。 并且会找到superClass的属性并解析，superClass如...
戴尔U2417h校色文件
12-23
已经博主授权,源码转载自 https://pan.quark.cn/s/bf9738e1fcec ICC-vx2478-4k 校色文件 这是一个使用SpyderX校色过的icc文件，根据自己的需要食用。
基于遗传算法辅助异构改进的动态多群粒子群优化算法（GA-HIDMSPSO）的LSTM分类预测研究（Matlab代码实现）
最新发布
12-23
基于遗传算法辅助异构改进的动态多群粒子群优化算法（GA-HIDMSPSO）的LSTM分类预测研究（Matlab代码实现）内容概要：本文研究了一种基于遗传算法辅助异构改进的动态多群粒子群优化算法（GA-HIDMSPSO），并将其应用于LSTM神经网络的分类预测中，通过Matlab代码实现。该方法结合遗传算法的全局搜索能力与改进的多群粒子群算法的局部优化特性，提升LSTM模型在分类任务中的性能表现，尤其适用于复杂非线性系统的预测问题。文中详细阐述了算法的设计思路、优化机制及在LSTM参数优化中的具体应用，并提供了可复现的Matlab代码，属于SCI级别研究成果的复现与拓展。; 适合人群：具备一定机器学习和优化算法基础，熟悉Matlab编程，从事智能算法、时间序列预测或分类模型研究的研究生、科研人员及工程技术人员。; 使用场景及目标：①提升LSTM在分类任务中的准确性与收敛速度；②研究混合智能优化算法（如GA与PSO结合）在神经网络超参数优化中的应用；③实现高精度分类预测模型，适用于电力系统故障诊断、电池健康状态识别等领域； 阅读建议：建议读者结合Matlab代码逐步调试运行，理解GA-HIDMSPSO算法的实现细节，重点关注种群划分、异构策略设计及与LSTM的集成方式，同时可扩展至其他深度学习模型的参数优化任务中进行对比实验。
原生js实现人民币数字转中文大写的工具代码
资源摘要信息:"js人民币数字大写转换代码" 知识点详细说明： 1. JavaScript简介 JavaScript是一种轻量级的脚本语言，被广泛用于网页交互式内容的创建。它是Web开发中不可或缺的一部分，用于实现动态的内容更新和...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值