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

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,