Function myP_cton(s As String) As Integer                          ' 漢字轉(zhuǎn)為數(shù)字（全能項(xiàng)數(shù)）

    Dim intSn As Integer

        If s Like "*一*" Then intSn = 1

        If s Like "*二*" Then intSn = 2

        If s Like "*三*" Then intSn = 3

        If s Like "*四*" Then intSn = 4

        If s Like "*五*" Then intSn = 5

        If s Like "*六*" Then intSn = 6

        If s Like "*七*" Then intSn = 7

        If s Like "*八*" Then intSn = 8

        If s Like "*九*" Then intSn = 9

        If s Like "*十*" Then intSn = 10

    myP_cton = intSn

End Function

Function myP_Ntoc(n As Integer) As String                          ' 數(shù)字轉(zhuǎn)為漢字（全能項(xiàng)數(shù)）

    Dim strSz As String

        If n = 1 Then strSz = "一"

        If n = 2 Then strSz = "二"

        If n = 3 Then strSz = "三"

        If n = 4 Then strSz = "四"

        If n = 5 Then strSz = "五"

        If n = 6 Then strSz = "六"

        If n = 7 Then strSz = "七"

        If n = 8 Then strSz = "八"

        If n = 9 Then strSz = "九"

        If n = 10 Then strSz = "十"

    myP_Ntoc = strSz

End Function