计算机vb大小写字母转换,VB 金额大小写转换(两种方法)

最新推荐文章于 2025-06-29 15:39:51 发布
转载 最新推荐文章于 2025-06-29 15:39:51 发布 · 1k 阅读 · 1
标签
#计算机vb大小写字母转换
本文介绍了一个将阿拉伯数字转换成汉字大写金额的程序模块。该模块适用于财务或银行系统中金额显示的需求，能够准确地将数值转换为符合中文书写习惯的大写金额形式。

' 本模块生成汉字大写的金额

'OptionExplicit' 名称： CCh

' 得到一位数字 N1 的汉字大写

' 0 返回 ""FunctionCCh(N1)As String

Select CaseN1Case0CCh ="零"Case1CCh ="壹"Case2CCh ="贰"Case3CCh ="叁"Case4CCh ="肆"Case5CCh ="伍"Case6CCh ="陆"Case7CCh ="柒"Case8CCh ="捌"Case9CCh ="玖"End Select

End Function'()Function

'名称： ChMoney

' 得到数字 N1 的汉字大写

' 最大为 千万位

' O 返回 ""Public FunctionChMoney(N1)As String

DimtMoneyAs String

DimlMoneyAs String

Dimtn'小数位置DimST1As String

DimT1As String

Dims1As String'临时STRING 小数部分Dims2As String'1000 以内Dims3As String'10000IfN1 =0ThenChMoney =" "Exit Function

End If

IfN1 <0ThenChMoney ="负"+ ChMoney(Abs(N1))Exit Function

End IftMoney = Trim(Str(N1))

tn = InStr(tMoney,".")'小数位置s1 =""Iftn <>0ThenST1 = Right(tMoney, Len(tMoney) - tn)IfST1 <>""ThenT1 = Left(ST1,1)

ST1 = Right(ST1, Len(ST1) -1)IfT1 <>"0"Thens1 = s1 + CCh(Val(T1)) +"角"End If

IfST1 <>""ThenT1 = Left(ST1,1)

s1 = s1 + CCh(Val(T1)) +"分"End If

End IfST1 = Left(tMoney, tn -1)ElseST1 = tMoneyEnd Ifs2 =""IfST1 <>""ThenT1 = Right(ST1,1)

ST1 = Left(ST1, Len(ST1) -1)

s2 = CCh(Val(T1)) + s2End If

IfST1 <>""ThenT1 = Right(ST1,1)

ST1 = Left(ST1, Len(ST1) -1)IfT1 <>"0"Thens2 = CCh(Val(T1)) +"拾"+ s2Else

IfLeft(s2,1) <>"零"Thens2 ="零"+ s2End If

End If

IfST1 <>""ThenT1 = Right(ST1,1)

ST1 = Left(ST1, Len(ST1) -1)IfT1 <>"0"Thens2 = CCh(Val(T1)) +"佰"+ s2Else

IfLeft(s2,1) <>"零"Thens2 ="零"+ s2End If

End If

IfST1 <>""ThenT1 = Right(ST1,1)

ST1 = Left(ST1, Len(ST1) -1)IfT1 <>"0"Thens2 = CCh(Val(T1)) +"仟"+ s2Else

IfLeft(s2,1) <>"零"Thens2 ="零"+ s2End If

End Ifs3 =""IfST1 <>""ThenT1 = Right(ST1,1)

ST1 = Left(ST1, Len(ST1) -1)

s3 = CCh(Val(T1)) + s3End If

IfST1 <>""ThenT1 = Right(ST1,1)

ST1 = Left(ST1, Len(ST1) -1)IfT1 <>"0"Thens3 = CCh(Val(T1)) +"拾"+ s3Else

IfLeft(s3,1) <>"零"Thens3 ="零"+ s3End If

End If

IfST1 <>""ThenT1 = Right(ST1,1)

ST1 = Left(ST1, Len(ST1) -1)IfT1 <>"0"Thens3 = CCh(Val(T1)) +"佰"+ s3Else

IfLeft(s3,1) <>"零"Thens3 ="零"+ s3End If

End If

IfST1 <>""ThenT1 = Right(ST1,1)

ST1 = Left(ST1, Len(ST1) -1)IfT1 <>"0"Thens3 = CCh(Val(T1)) +"仟"+ s3End If

End If

IfRight(s2,1) ="零"Thens2 = Left(s2, Len(s2) -1)IfLen(s3) >0Then

IfRight(s3,1) ="零"Thens3 = Left(s3, Len(s3) -1)

s3 = s3 &"万"End IfChMoney = IIf(s3 & s2 ="", s1, s3 & s2 &"元整"& s1)End Function

刘空青
关注
数字转成人民币大写代码
04-11
数字转成人民币大写代码 Public Function GetChinaNum(otherNum As Double, Optional isRMB As Boolean, Optional numOption As Boolean, Optional dotNum As Integer) As String On Error Resume Next num = Trim(Str(Int(otherNum))) If isRMB Then numwei = "拾佰仟万拾佰仟亿拾佰仟" numshu = "零壹贰叁肆伍陆柒捌玖拾" Else numwei = "十百千万十百千亿十百千" numshu = "零一二三四五六七八九十" End If If otherNum < 20 And otherNum >= 10 Then num = Right(num, 1) GetChinaNum = Left(numwei, 1) End If For i = 1 To Len(num) bstr = Mid(num, i, 1) If numOption Then GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1) Else GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1) If bstr = "0" Then If Mid(numwei, Len(num) - i, 1) = "万" Or Mid(numwei, Len(num) - i, 1) = "亿" Then Do While Right(GetChinaNum, 1) = "零" GetChinaNum = Left(GetChinaNum, Len(GetChinaNum) - 1) Loop GetChinaNum = GetChinaNum + Mid(numwei, Len(num) - i, 1) End If Else GetChinaNum = GetChinaNum + Mid(numwei, Len(num) - i, 1) End If GetChinaNum = Replace(GetChinaNum, "零零", "零") End If Next i If numOption = False Then Do While Right(GetChinaNum, 1) = "零" GetChinaNum = Left(GetChinaNum, Len(GetChinaNum) - 1) Loop End If If isRMB Then numrmb = "元角分" GetChinaNum = GetChinaNum + Mid(numrmb, 1, 1) If Val(num) <> otherNum Then num = Trim(Str(Round(otherNum - Val(num), 2))) For i = 2 To Len(num) bstr = Mid(num, i, 1) GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1) + Mid(numrmb, i, 1) Next i Else GetChinaNum = GetChinaNum + "整" End If Else If Val(num) <> otherNum Then If dotNum = 0 Then dotNum = 4 num = Trim(CStr(Round(otherNum - Val(num), dotNum))) If GetChinaNum = "" Then GetChinaNum = "零" GetChinaNum = GetChinaNum + "点" For i = 2 To Len(num) bstr = Mid(num, i, 1) GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1) Next i End If End If End Function
vbs 金额转换到大写(包括中文和英文)
07-13
可以转换成中文大写及英文大写.事先声明,非我原创,只是以前从论坛上下载的,处处不记得了.
VB 金额大小写转换(两种方法)
資料為我做事
03-09 1441
' 本模块生成汉字大写的金额'Option Explicit' 名称： CCh' 得到一位数字 N1 的汉字大写' 0 返回 ""Function CCh(N1) As StringSelect Case N1Case 0CCh = "零"Case 1CCh = "壹"Case 2CCh = "贰"Case 3CCh = "叁"Case 4CCh = "肆"Case 5CCh = &
VB6 人民币小写转大写转换
鞠勇鸿的技术专栏
12-29 3919
  Option Explicit Public Function NumberToCharacter(number As String) As String 完成转换的主函数 Dim Pos_Point As Long 记录小数点的位置 Dim curNum As String 记录当前处理的数字 Dim zhengshu As String 记录整数部分 Dim shuduan
VB实现人民币大小写金额转换
weixin_39433293的博客
01-31 1545
本节课程，利用VB知识来实现人民币金额小写自动转大写的工具设计。 效果如下图所示： 实现代码 Private Sub Text1_Change() Text2 = rmbChange(Text1) End Sub Function rmbChange(ByVal rmb As Double) As String On Error Resume Next Dim Rmbexp As String, Rmbda As String, Expda As String, Lent As
VB人民币大写转换
三楼一郎（狼窝）
11-02 2588
<br />Public Function MoneyToUpper(ByVal money As Double) As String If money = 0 Then MoneyToUpper = "零元整" Exit Function End If Dim DataUpper() As String Dim DataUpper1() As String DataUpper = Split("零,壹,贰
中考计算机考试VB常用函数,全国计算机等级考试二级VB常用函数解析.doc
weixin_39844963的博客
07-20 305
《全国计算机等级考试二级VB常用函数解析.doc》由会员分享，提供在线免费全文阅读可下载，此文档格式为doc，更多相关《全国计算机等级考试二级VB常用函数解析.doc》文档请在天天文库搜索。1、全国计算机等级考试二级VB常用函数解析l p=ABS(X):取X的绝对值.l p=Log(X):求X的自然对数.l Y=Sgn(X):符号函数.说明: X>0时Y=1;X=0时 Y=0;X<0...
VB.Net语法笔记
BalladC的博客
05-13 783
1、数据类型 对于Boolean类型的数据，当需要把布尔类型的值转换为数值类型的时候，会把True当成1来处理，把False当作0来处理。当需要把VB.NET数值类型的值转换为布尔类型的时候，会把0转换为False，而把其他的非0数值转换为True。 2、运算符 整数除：\，丢弃了所有余数，只保留整数部分（称为截断）。如果除数或被除数为浮点数，在执行除法前，编译器会采用“四舍六入五成双”的规
vb计算机设计报告怎么写,VB毕业课程设计报告
weixin_28432777的博客
07-30 215
VB毕业课程设计报告课程设计对我们每个人来说都是一个挑战，下面是VB毕业课程设计报告，为大家提供参考。课程设计题目：个人收支管理难度：☆☆☆姓名：***学号：913*****0633随着社会生活步调的不断加快，人们越来越繁忙。也因此各项收入和支出名目繁多，如果不善于管理常会出现入不敷出，工资感觉没怎么用到月底就已经全光了。所以对自己在日常生活中的收入和支出进行记录和管理是十分必要的。这也正是设计这...
超星计算机技术基础 vb,程序设计技术（VB）-中国大学mooc-题库零氪
weixin_39907922的博客
07-09 5225
第1章 Visual Basic.NET编程基础第1次 测试题---数值类型与表达式1、如果在程序中要将变量a定义为整形变量，则应使用的语句是A、Dim a as DoubleB、Dim a as StringC、Dim a as IntegerD、Dim a as Boolean2、以下的数据类型当中,哪种不属于整数类型A、ShortB、LongC、IntegerD、Single3、以下的数据类...
VBA大小写变换
热门推荐
blog
01-12 1万+
LCase 函数 返回转成小写的 String。 语法 LCase(string) 必要的 string 参数可以是任何有效的字符串表达式。如果 string 包含 Null，将返回 Null。 说明 只有大写的字母会转成小写；所有小写字母和非字母字符保持不变。 LCase 函数示例 本示例使用 LCase 函数来将某字符串转成全部小写。 Dim UpperCase, Lowe...
vb 人民币大小写转换 代码
04-06
vb 中 将数字转换人民币大写 源代码 如：10.00 转换 十元整
VB 将小写金额转换成大写金额
04-16
VB 将小写金额转换成大写金额，直接调用就可以了！！！
VB:将数字转换为大写中文
miaozk2006的专栏
12-16 1476
方法1: 程序代码： 　 Const strN = "零壹贰叁肆伍陆柒捌玖"Const strG = "拾佰仟万亿"Const intN = "0123456789"Dim Zero_Count As Long '读零计数'Private Function GetN(ByVal N As Long) As StringGetN = Mid(strN, N + 1, 1...
vb数字转汉字大写值
laocooon的博客
07-05 1074
Private Function setdata(num As Integer) As String '数字转换 Select Case num Case 0 setdata = "零" Case 1 setdata = "壹" Case 2 setdata = "贰" Case 3 setdata = "叁" Case 4 setdata = "肆" Case 5 setdata = "伍" C...
VB 金额小写数字转大写
u012546447的博客
04-26 2665
'本模块生成汉字大写的金额 '输入：数字 '输出：大写金额 Public Function Num2CharZheng(ByVal N As Double) As String  On Error GoTo ErrorH  If Right(Num2Char(N), 1) = "元" Or Right(Num2Char(N), 1) = "角" Then     Num2CharZhe
关于使用VB.NET处理人民币大小写转换
最新发布
cncbook1979的博客
06-29 438
If fen > 0 Then result &= (If(jiao = 0 AndAlso fen > 0, "零", "")) & nums(fen) & units(1)Dim units() As String = {"", "拾", "佰", "仟", "万", "拾", "佰", "仟", "亿", "拾", "佰", "仟"}Dim numbers() As String = {"零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖"}
VB.net中金额大写转换
Dexter's Laboratory
02-28 1861
Module Currency Public Class Converter Inherits Object Private Const CST_CAPSTR_TAIL As String = "整" Private Const CST_CAPSSTR_ZERO As String = "零" Private Const C
货币金额大写转换库(VB) Money2String.dll
xlfancy的专栏
12-13 1160
 ******************货币金额大写转换库 Money2String.dll ********************* 中文大写转换方法       String GetCnString(String MoneyString) 最大转化金额           999999999999999999999999.99  （24位整数位，2位小
数字转换大写
01-26 1051
          又要用到数字转化为大写.呵呵,记得先前在网上查了很多资料,有些要么不对,有些要么看起来很复杂的样子,倒不不如自己写一个.因为是在vb6写的,现在移到vb.net 由于vb6和vb.net 对字符串处理方式不同,所以在vb.net 存在着效率不高的现象,不过现在cpu那么快,懒得修改.有空写个vb.net版本.首发qq空间 数字转换大写 函数将输入的阿拉伯数字转
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值