VB 手机号码编码程序
来源:互联网 发布:linux 查看全部用户 编辑:程序博客网 时间:2024/05/09 20:24
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
- VB 手机号码编码程序
- [JAVA]手机号码抽奖程序
- 一个VB写的Base64编码/解码程序
- vb 程序
- vb程序
- VB程序!
- 小程序写手机号码查吉凶,有检验手机号码正确性
- VB编码规范
- VB.net编码规范
- VB PDU US2 编码
- VB编码规范.doc
- VB.net 编码规范
- VB.net 编码规范
- VB.net编码规范
- VB.net 编码规范
- VB内部编码规范
- vb.net编码
- VB中的GBK编码
- 3D游戏引擎设计与实现(18)
- Mozilla系列——引子
- 网页颜色图
- [转]Drawstring in Canvas with Chinese (Siemens 55/57 series)
- 不错的网站,韩国的
- VB 手机号码编码程序
- VB PDU US2 编码
- IE 无法播放flash的解决方法
- VB 二进制,八进制,十进制,十六进制转换
- 对不起!我错了
- 交叉表的实现,
- TeX中实现悬挂缩进
- 初冬,居然没有预想中的寒意
- 更改SQLServer服务器时间