VB 手机号码编码程序

最新推荐文章于 2021-08-09 20:56:32 发布

广州黑码软件

最新推荐文章于 2021-08-09 20:56:32 发布

阅读量1.6k

点赞数

分类专栏：手机短信专栏文章标签： vb 手机 integer string function

本文链接：https://blog.csdn.net/charise/article/details/197729

版权

手机短信专栏专栏收录该内容

9 篇文章 0 订阅

订阅专栏

Public Function telc(num As String) As String

    Dim tl As Integer
    Dim ltem, rtem, ttem As String
    Dim ti As Integer
    ttem = ""
    tl = Len(num)
    If tl > 14 Then
        num = Mid(num, 1, 14)
        tl = 14
    End If

    If tl = 11 Then
      tl = tl + 2
      num = "86" & num
    End If
    If tl Mod 2 = 1 Then
         tl = tl + 1
         num = num + "F"
    End If

    For ti = 1 To tl Step 2
      ttem = ttem & Mid(num, ti + 1, 1) & Mid(num, ti, 1)
    Next ti
    telc = ttem

End Function