用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - vb代码库

返回大写人民币

2016-01-05 作者: 洗车人举报

[vb]代码库

Function CapsMoney(curMoney As Currency) As String              '转换中文大写金额函数
    Dim curMoney1 As Long
    Dim i1 As Long                                              '保存整数部分(元部分)
    Dim i2 As Integer                                           '保存十分位(角部分)
    Dim i3 As Integer                                           '保存百分位(分部分)
    Dim s1 As String, s2 As String, s3 As String                '保存转换后的字符串
    curMoney1 = Round(curMoney * 100)                           '将金额扩大100倍,并进行四舍五入
    i1 = Int(curMoney1 / 100)                                   '获取整数部分
    i2 = Int(curMoney1 / 10) - i1 * 10                          '获取十分位
    i3 = curMoney1 - i1 * 100 - i2 * 10                         '获取百分位
     
    s1 = Application.WorksheetFunction.Text(i1, "[dbnum2]")     '将整数部分转为中文大写
    s2 = Application.WorksheetFunction.Text(i2, "[dbnum2]")     '将十分位转为中文大写
    s3 = Application.WorksheetFunction.Text(i3, "[dbnum2]")     '将百分位转为中文大写
    s1 = s1 & "元"                                              '整数部分
    If i3 <> 0 And i2 <> 0 Then                                 '分和角都不为0
        s1 = s1 & s2 & "角" & s3 & "分"
        If i1 = 0 Then                                          '元部分为0
            s1 = s2 & "角" & s3 & "分"
        End If
    End If
    If i3 = 0 And i2 <> 0 Then                                  '分为0,角不为0
        s1 = s1 & s2 & "角整"
        If i1 = 0 Then                                          '元部分为0
            s1 = s2 & "角整"
        End If
    End If
    If i3 <> 0 And i2 = 0 Then                                  '分不为0,角为0
        s1 = s1 & s2 & s3 & "分"
        If i1 = 0 Then                                          '元为0
            s1 = s3 & "分"
        End If
    End If
    If Right(s1, 1) = "元" Then s1 = s1 & "整"                  '为"元"后加上一个"整"字
    CapsMoney = s1
End Function


网友评论    (发表评论)

共1 条评论 1/1页

发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。


扫码下载

加载中,请稍后...

输入口令后可复制整站源码

加载中,请稍后...