VB 手机号码编码程序

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

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18