水晶报表使用公式转化大写

最新推荐文章于 2018-02-27 09:55:00 发布

zhvsby

最新推荐文章于 2018-02-27 09:55:00 发布

阅读量1.1k

点赞数

分类专栏： Crystalreport 文章标签：报表

本文链接：https://blog.csdn.net/zhvsby/article/details/5929892

版权

这篇博客介绍了如何使用VBA代码将数字转化为大写的汉字，以应用于水晶报表中。通过定义汉字和位置代码，实现了数字到大写金额的转换，并处理了各种特殊情况进行格式化，例如避免出现多余的“零”和不合适的单位。

摘要由CSDN通过智能技术生成

Dim x As String
Dim y As String
Dim zimu as String
Dim temp As String
Dim letter As String
Dim upcase As String
Dim i as Number
dim j as Number

zimu = ".sbqwsbqysbqwsbq" '定义位置代码
letter = "0123456789sbqwy.zjf" '定义汉字缩写
upcase = "零壹贰叁肆伍陆柒捌玖拾佰仟万亿元整角分" '定义大写汉字

temp = ToText ({View_Sale_Instead_Pay_Head.Pay_Amount})
temp = Replace(temp,",","")
x=temp
y=""

        For i = 1 To Len(x) - 3
                y = y & Mid(x, i, 1) & Mid(zimu, Len(x) - 2 - i, 1)
        Next
        If Right(x, 3) = ".00" Then
                y = y & "z"          '***元整
        Else
                y = y & Left(Right(x, 2), 1) & "j" & Right(x, 1) & "f"     '*元*角*分
        End If
        y = Replace(y,