欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

'將金額大寫(xiě)（中文大寫(xiě)數字）轉化為阿拉伯數字Function RMBToNumber(source As Range)    Dim dict As Object    Dim unitDict As Object    Set dict = CreateObject('Scripting.Dictionary')    Set unitDict = CreateObject('Scripting.Dictionary')    '預定義中文大寫(xiě)與阿拉伯數字的對應    chineseNum = '零壹貳叁肆伍陸柒捌玖'    num = '0123456789'    '將中文大寫(xiě)與數字加入到集合dict中，便于后續匹配    For i = 1 To Len(num)        dict.Add Mid(chineseNum, i, 1), Mid(num, i, 1)    Next i    '預定義單位    chinese_uom = '拾、佰、仟、萬(wàn)、億、兆、元、角、分、零、整'    num_uom = '10、100、1000、10000、100000000、1000000000000、1、0.1、0.01、1、1'    chinese_uom_split = Split(chinese_uom, '、')    num_uom_split = Split(num_uom, '、')    For i = 0 To UBound(chinese_uom_split)        unitDict.Add chinese_uom_split(i), num_uom_split(i)    Next    temp = 0    '遍歷中文大寫(xiě)，依次替換每一個(gè)字符    sourceText = source.Text    For i = 1 To Len(sourceText)        Debug.Print Mid(sourceText, i, 1)        current = Mid(sourceText, i, 1)        '判斷是否是常規大寫(xiě)，直接替換        If dict.exists(current) Then            Debug.Print dict(current)            temp = temp + CInt(dict(current))        '如果是單位大寫(xiě)，特殊處理        ElseIf unitDict.exists(current) Then            If current = '兆' Then                result = result + temp                result = result * unitDict(current)                zhao = result                result = 0            ElseIf current = '億' Then                result = result + temp                result = result * unitDict(current)                yi = result                result = 0            ElseIf current = '萬(wàn)' Then                result = result + temp                result = result * unitDict(current)                wan = result                result = 0            Else                temp = temp * unitDict(current)                result = result + temp            End If            temp = 0        End If        Debug.Print result    Next    result = zhao + yi + wan + result + temp    '輸出最終轉化后的結果    RMBToNumber = resultEnd Function