[原创]中文小写转阿拉伯数字自定义函数

袁毅

向你学习了，感谢

袁毅

若能支持小数，中文混和就完美了

少如

wzsy2_mrf 发表于 2014-7-28 16:41
再调用下面的转化函数，那么无论什么整数都可以处理：

请作个附件贴上来好吗?
谢谢!

wzsy2_mrf

少如 发表于 2014-7-29 08:19
请作个附件贴上来好吗?
谢谢!

大小中文数字，阿拉伯数字任你混写，没有什么不能转。附件如下：

wzsy2_mrf

附件如下：

少如

wzsy2_mrf 发表于 2014-7-29 09:21
附件如下：

收列,  谢谢!

wzsy2_mrf

二叉递归计算混排数字
大小中文数字，阿拉伯数字任你混写，没有什么不能转。附件如下：



发错地方了。

时光鸟

wzsy2_mrf 发表于 2014-7-28 16:39
先将数据用下面代码进行标准化处理：

嗯，这种思路很不错，兼容性很强！

renahu

wzsy2_mrf 发表于 2014-7-29 09:21
附件如下：

有没有一个简单版的？直接转0-999范围的数字
网上找到一个阿拉伯数字转中文小写的：（想反过来转，纯中文小写转阿拉伯数字）

Function ToChin(Num As String) As String

    Const Snum As String = "零一二三四五六七八九十"

    Dim L As Integer, I As Integer, S As String, N As Integer

    L = Len(Num)

    If L > 3 Then

        MsgBox "数字 " & Num & " 超出三位数范围。", vbOKOnly, "错误提示"

        Exit Function

    End If

    N = L

    For I = 1 To L

        S = Mid(Num, I, 1)

        If N = 3 Then

            ToChin = ToChin & Mid(Snum, Val(S) + 1, 1) & "百"

        ElseIf N = 2 Then

            If S <> "0" Then

                If S = "1" And L = 2 Then

                    ToChin = ToChin & "十"

                Else

                    ToChin = ToChin & Mid(Snum, Val(S) + 1, 1) & "十"

                End If

            Else

                If Mid(Num, I + 1, 1) <> "0" Then

                    ToChin = ToChin & Mid(Snum, Val(S) + 1, 1)

                End If

            End If

        Else

            If S <> "0" Or S = "0" And L = 1 Then

                ToChin = ToChin & Mid(Snum, Val(Mid(Num, I, 1)) + 1, 1)

            End If

        End If

        N = N - 1

    Next I

End Function

renahu

时光鸟 发表于 2013-6-16 12:16
这个使用面是比较窄，我也是在网上找了好久没找到好用的，才想着要自己写一个用

有没有简单版的，就是纯中文数字转成阿拉伯数字 0~999

网上找到一个阿拉伯数字转中文小写的：（想反过来转，纯中文小写转阿拉伯数字）

Function ToChin(Num As String) As String

     Const Snum As String = "零一二三四五六七八九十"

     Dim L As Integer, I As Integer, S As String, N As Integer

     L = Len(Num)

     If L > 3 Then

         MsgBox "数字 " & Num & " 超出三位数范围。", vbOKOnly, "错误提示"

         Exit Function

     End If

     N = L

     For I = 1 To L

         S = Mid(Num, I, 1)

         If N = 3 Then

             ToChin = ToChin & Mid(Snum, Val(S) + 1, 1) & "百"

         ElseIf N = 2 Then

             If S <> "0" Then

                 If S = "1" And L = 2 Then

                     ToChin = ToChin & "十"

                 Else

                     ToChin = ToChin & Mid(Snum, Val(S) + 1, 1) & "十"

                 End If

             Else

                 If Mid(Num, I + 1, 1) <> "0" Then

                     ToChin = ToChin & Mid(Snum, Val(S) + 1, 1)

                 End If

             End If

         Else

             If S <> "0" Or S = "0" And L = 1 Then

                 ToChin = ToChin & Mid(Snum, Val(Mid(Num, I, 1)) + 1, 1)

             End If

         End If

         N = N - 1

     Next I

End Function