VBA转数字不正确

WE2021

VBA转数字不正确！烦请各位老师帮忙看一看。

谢谢！

数字转换.zip (22.14 KB, 下载次数: 16)

2022-11-18 15:33 上传

点击文件名下载附件

附件来源本站

ykcbf1100

网上找的自定义汉字转阿拉伯数字函数，挺好用的。

MOY838840554

我自己写了一个自定义函数，逻辑很简单，就是replace替换

准提部林

自訂函數//自行更改為簡體字

Function 大寫轉數字(xNumber$)
Dim N1%, N2%, NN, T, X%, i%
For i = Len(xNumber) To 1 Step -1
    T = Mid(xNumber, i, 1)
    X = InStr("Ｐ十拾百佰千仟", T)
    If X > 1 Then N1 = Int(X / 2)
    X = InStr("萬億兆", T)
    If X > 0 Then N2 = X * 4: N1 = 0
    X = InStr("Ｐ一壹二貳三參四肆五伍六陸七柒八捌九玖", T)
    If X > 1 Then NN = NN + Int(X / 2) * (10 ^ N1) * (10 ^ N2)
101: Next
大寫轉數字 = NN
End Function

02761752696

准提部林 发表于 2022-11-18 21:41
自訂函數//自行更改為簡體字

Function 大寫轉數字(xNumber$)

测试出错，调整了一下结果正确了，也不知对不对，其他数据有没影响【没看懂】

zxsea_7426

02761752696 发表于 2022-11-19 08:56
测试出错，调整了一下结果正确了，也不知对不对，其他数据有没影响【没看懂】

我改了一个试试：好像还是差点。

准提部林

02761752696 发表于 2022-11-19 08:56
测试出错，调整了一下结果正确了，也不知对不对，其他数据有没影响【没看懂】

這是結果示例//

准提部林

02761752696 发表于 2022-11-19 08:56
测试出错，调整了一下结果正确了，也不知对不对，其他数据有没影响【没看懂】

X = InStr("Ｐ十拾百佰千仟", T)
X = InStr("萬億兆", T)
X = InStr("Ｐ一壹二貳三參四肆五伍六陸七柒八捌九玖", T)

這些都要改簡體字//如"萬"改"万"
大寫金額必須符合EXCEL//[dbnum1]  [dbnum2] 的規範//

zxsea_7426

我改写了一组，发现当零和十相连的时候会出错。
如果为了避免上面这种情况，又加了一段代码,还是测试没有通过,原因是出现了两组零和十相连的。
下面是我改写的：

Function DX_num1(xNumber$)
    Dim N1%, N2%, N3%, NN, T, X%, i%
    If InStr(xNumber, "零十") Then 中段点位 = InStr(xNumber, "零十") + 1
   
   
    For i = Len(xNumber) To 1 Step -1
        T = Mid(xNumber, i, 1)

        X = InStr("十拾百佰千仟", T)
        If X > 0 Then
            If X Mod 2 = 0 Then
                N1 = X / 2
            Else
                N1 = (X + 1) / 2
            End If
        End If
        
        X = InStr("万萬亿億兆兆", T)
        If X > 0 Then
            N1 = 0  '进位后，下级归零
            If X Mod 2 = 0 Then
                N2 = (X / 2) * 4
            Else
                N2 = ((X + 1) / 2) * 4
            End If
        End If
        
        Y = InStr("一壹二貳三參四肆五伍六陸七柒八捌九玖", T)
        If Y > 0 Then
            If Y Mod 2 = 0 Then
                N3 = Y / 2
            Else
                N3 = (Y + 1) / 2
            End If
        Else
            N3 = 0
        End If
        If i = 1 And (Y = 0 Or X > 0) Then N3 = 1
        If i = 中段点位 Then N3 = 1
        If i > 0 Then NN = NN + N3 * (10 ^ N1) * (10 ^ N2)
    Next
    DX_num1 = NN
End Function

准提部林

zxsea_7426 发表于 2022-11-19 10:35
能麻烦测试一下：
一万零十一元
一亿零十一万零十一元

一万零十一元//
一万零一十一元...這才是EXCEL..[dbnum1]的寫法

若這樣, 要先加工轉換//
=大寫轉數字(SUBSTITUTE(D11,"零十","零一十"))

也可在代碼中用 REPLACE 先置換~~