vb .net 转换大写金额函数

该博客介绍了一个VB.NET中将数值转换为大写金额的自定义函数yh_bigmoney。函数接受Double类型参数,通过取整和四舍五入获取整数和小数部分,然后分别进行大写转换。整数部分使用循环处理,根据模运算结果判断是否添加大写字符。小数部分同样处理,但会限制到三位。最后,组合整数和小数部分的大写结果,并返回'整'字表示完整金额。
摘要由CSDN通过智能技术生成
Function yh_bigmoney(ByVal num As Double) As String
        Dim intpart As Integer
        Dim dotpart As Integer
        Dim cm As Integer
        intpart = Int(num)
        dotpart = yh_round((num - intpart) * 1000)


        Dim retval As String, dotval As String
        Dim i As Integer
        Dim pre0 As Boolean
        ' Debug.Write(intpart)
        'Debug.WriteLine("")
        'Debug.Write(dotpart)
        'Debug.WriteLine("")
        i = 0
        pre0 = False
        While intpart > 0
            cm = intpart Mod 10
            If cm = 0 Then
                If i Mod 4 = 0 Then
                    retval = bigm1.Chars(i) & retval
                ElseIf Not pre0 Then
                    retval = bigm.Chars(cm) & retval
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值