VBA金额转换中文大写（原创新解版）

直接上代码，优化、需求等问题可以直接留言或私信沟通。

Function amountInWordsAbrr(amountInFigures As Variant)
Dim amountInWord As String
amountInFigures = Format(amountInFigures, "standard")
amountInWord = Application.WorksheetFunction.Text(amountInFigures, "[dbnum2]")
amountInWord = Replace(amountInWord, "-", "负")
If CInt(Right(amountInFigures, 2)) = 0 ThenamountInWordsAbrr = amountInWord & "元整"
ElseIf CInt(Right(amountInFigures, 2)) > 0 ThenamountInWord = Replace(amountInWord, ".", "元")If CInt(Right(amountInFigures, 1)) = 0 ThenamountInWordsAbrr = amountInWord & "角"ElseIf CInt(Right(amountInFigures, 2)) < 10 ThenamountInWordsAbrr = Left(amountInWord, Len(amountInWord) - 1) & Right(amountInWord, 1) & "分"ElseIf CInt(Right(amountInFigures, 2)) > 10 ThenamountInWordsAbrr = Left(amountInWord, Len(amountInWord) - 1) & "角" & Right(amountInWord, 1) & "分"End If
End If
End Function

VBA金额转换中文大写（原创新解版）相关推荐

金额转中文大写源代码（原创）
1,问题描述:将数字金额转成中文大写 2,源代码如下 public class ZHapi {private static String[] tmp = {"零", "壹 ...
小写数字转大写_不得不说的Excel小技巧：设置单元格格式将小写金额转换成大写...
大家好,我是小秋,近期一段时间比较忙,没有在今日头条上更新原创文章了.希望朋友们多多见谅,下面与大家分享一个Excel实用小技巧:如何设置单元格格式将小写金额转换成大写? 1.应用场景在报销单.收据 ...
C# 金额转中文大写
今天看到一个库是把金额转中文大写,看起来很容易,所以我就自己写了创建的项目是创建一个 dot net core 的项目,实际上这个项目可以创建为 Stand 的. 首先创建类,这个类的构造传入一个 ...
python数字大小写转换代码_用python实现把数字人民币金额转换成大写的脚本程序...
# -*- coding: utf-8 -*- def Num2MoneyFormat( change_number ): """ .转换数字为大写货币格式( forma ...
SDNUOJ 1213.金额的中文大写
今天做了一个题,感觉网上的程序有些繁琐或者不够简明,所以打算把自己的发上来,供大家借鉴. 前几天学校的OJ坏了,刚刚修好我便看到了这个题. 1213.金额的中文大写 Time Limit: 1000 ...
【简单易懂】Java字符串应用场景：数字金额转换成大写汉字金额【金额转换】
Java字符串应用场景:数字金额转换成汉字金额文章目录 Java字符串应用场景:数字金额转换成汉字金额前言一.String简单介绍二.字符串在开发中的应用场景三.金额转换 3.1解题思路 3 ...
小写金额变中文大写和英文方法总结
#region 变量申明 private static readonly String cnNumber = "零壹贰叁肆伍陆柒捌玖"; priva ...
阿拉伯数字转换中文大写
阿拉伯数字转换中文大写 <?php class ToChineseNumber {private $money = "";private $cnynums = array ...
jq 数字转中文数字_阿拉伯数字转换中文大写
阿拉伯数字转换中文大写 class ToChineseNumber { private $money = ""; private $cnynums = array(" ...
金额转换成大写和简称的方法
/*** 获取金额的中文大写或简称的方法* @author xxx* @param money 传入的金额字符串* @param simple 为true代表金额简称,false为繁体字大写,默认为f ...

VBA金额转换中文大写（原创新解版）

VBA金额转换中文大写（原创新解版）相关推荐

最新文章

热门文章