VB.Net 金额转大写人民币函数

已于 2023-11-08 16:05:13 修改
阅读量399 收藏
点赞数
分类专栏： VB.Net 文章标签： .net
于 2023-09-11 12:00:54 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/oulawang2/article/details/132804030
版权
这篇博客分享了如何使用VB.Net编写函数，将数字金额转换为大写的人民币形式。函数包括两个部分，分别处理整数部分和小数部分，确保转换的准确性，同时考虑了零值和两位小数的情况。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

效果展示

以下是代码函数部份

 '数字转成人民币大写
    Public Shared Function MyMoneyToRMB(ByVal Num As Decimal) As String   '
      
        Dim vNum, vDec, ret
      
        vNum = Right(Format$(Int(Num), "000000000000"), 12) 
        vDec = Right(Format$(Int(Num * 100), "00"), 2) 
      
        ret = Num2RMB(Left(vNum, 4), "亿", False)
        If Len(ret) = 0 Then
            ret = Num2RMB(Mid(vNum, 5, 4), "万", False)
        Else
            ret = ret + Num2RMB(Mid(vNum, 5, 4), "万", True)
        End If
        If Len(ret) = 0 Then
            ret = Num2RMB(Right(vNum, 4), "元", False)
        Else
            ret = ret + Nu

最低0.47元/天 解锁文章
VB实现人民币大小写金额转换
weixin_39433293的博客
01-31 1412
本节课程，利用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.NET版) (原chenyu001C#版)
水如烟
09-15 3431
将人民币的数字表示转化成大写表示(VB.NET版)  本代码参考chenyu001 将人民币的数字表示转化成大写表示(C#版)  http://dev.csdn.net/article/28/28977.shtm改的不多,但愿这些改动没让原作者发怒Public Class ChineseNum    输入字串    Private _InputString
VB 金额大小写转换(两种方法)
資料為我做事
03-09 1367
' 本模块生成汉字大写的金额'Option Explicit' 名称： CCh' 得到一位数字 N1 的汉字大写' 0 返回 ""Function CCh(N1) As StringSelect Case N1Case 0CCh = "零"Case 1CCh = "壹"Case 2CCh = "贰"Case 3CCh = "叁"Case 4CCh = "肆"Case 5CCh = &
VB.NET中数字转化为大写
天狼小帅的BLOG
06-02 1924
Public Class chinesenum    输入字串    Private _InputString As String    输出字串,如果无效则输出错误信息    Private _OutString As String    判断输出字串是否有效    Private _Valiad As Boolean     Public WriteOnly
[源码][VB.Net]数字转大写数字和大写人民币函数
何志林的专栏
01-13 2376
[源码][VB.Net]数字转大写数字和大写人民币函数Namespace Hot.Common    Public Class NumUtil        数字转成人民币大写        Public Shared Function CapitalRMB(ByVal Num As Decimal) As String   得到大写金额            ----------
asp.net(vb)实现金额转换成大写的函数
01-02
代码如下: ”’ <summary> ”’ 将数据转换为Double数字 ”’ </summary> ”’ ”Obj”></param> ”’ <returns></returns> ”’ <remarks></remarks> Public Shared Function todbl(ByVal Obj As Object) As Double...
这是一个可以将阿拉伯数字金额转换为中文大写金额的类，vb.net可用
最新发布
09-07
在VB.NET编程语言中，实现阿拉伯数字金额转换为中文大写金额的功能是一项常见的编程任务。这个过程涉及到数字的转换和中文字符的组合，目的是为了生成符合中文习惯的金额表述形式。本文档展示了一个VB.NET类的具体...
VB.Net 金额大写
02-03
通过这个函数，VB.Net开发者可以方便地在应用程序中实现金额小写到大写的转换，满足财务系统或相关业务的需求。结合给定的压缩包中的"金额大小写转换"文件，你可能还会发现更具体或优化的实现方式，以便根据项目需求...
VB金额大写
08-10
VB将程序中需要计算的金额数字由小字变为大写
VB.net中金额大写转换
Dexter's Laboratory
02-28 1745
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 将小写数字金额格式化为大写金额.rar
07-10
VB 将小写数字金额格式化为大写金额，这一个相比其它的金额数字转换，是自动转换，用户输入完小写数字金额后，程序将自动把小写数字变为大写，不过奇怪的是，在代码中并没有发现转换功能写在哪里，看到有数据库，莫非大写字符都存储于数据库吗？本例最终的运行效果如下图所示，用户在金额（大写）处输入小写的数字，可以输入小数点，然后单击其它空白处，程序会自动将小写金额转换成大写状态。
vb 人民币大小写转换 代码
04-06
vb 中 将数字转换人民币大写 源代码 如：10.00 转换 十元整
vb.net2010 大写数字转换程序
12-06
用visual basic 2010编写的中文数字大写转换程序源代码码，完整实用，欢迎使用。
VB 将小写金额转换成大写金额
04-16
VB 将小写金额转换成大写金额，直接调用就可以了！！！
VBA源代码 数值转换中文大写金额
04-17
函数输入双精度数值,长度13位，输出字符串，转换位到兆。
VB人民币大写转换
三楼一郎（狼窝）
11-02 2475
<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.net编写人民币小写转大写
深未来技术
04-11 572
填写票据和结算凭证.必须做到标准化.规范化.要要素齐全.数字正确.字迹清晰.不错漏.不潦草.防止涂改.中文大写金额数字应用正楷或行书填写.如壹(壹).贰(贰).叁.肆(肆).伍(伍).陆(陆).柒.捌.玖.拾.佰.仟.万(万).亿.元.角.分.零.整(正)等字样.不得用一.二(两).三.四.五.六.七.八.九.十.念.毛.另(或0)填写.不得自造简化字.如果金额数字书写中使用繁体字.如贰.陆.亿....
VB阿拉伯数字金额转大写中文
mengchangjun的专栏
12-23 2095
Function mychange(ByVal Myinput)     Dim Temp, TempA, MyinputA, MyinputB, MyinputC     Dim Place As String     Dim J As Integer     Place = "分角元拾佰仟万拾佰仟亿拾佰仟万"     shuzi1 = "壹贰叁肆伍陆柒捌玖"     shuzi2
vb.net 数字大写
weixin_30527551的博客
08-09 186
Private Function RMBChinese(ByVal Rmb As Double) As String Dim Rmbexp As String Dim Rmbda As String Dim Icnt As Integer Dim i As Integer Dim Trmb As String ...
原创人民币金额小写转大写VB.NET源码分享
开发者在实现人民币小写转大写功能时，需要对中文数字表示法有深入理解，并且需要掌握VB.NET编程知识。他们需要编写代码来处理各种情况，如数字与汉字的对应关系、连续零的特殊处理、单位的正确使用等。整个开发过程...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

oulawang2

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值