VB 手机号码编码程序
2004-11-29 13:28
549 查看
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
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中使用IE的 WebBrowser控件改进界面设计
- WMI 脚本入门
- mydata.vb
- 如何二次压缩RM和RMVB格式文件
- 在Excel中应用VBA批量导入数据
- 在Excel中使用VBA来筛选数据
- DVBBS sp2 漏洞
- VB.NET and C# Comparison(VB.NET and C# 语法比较)
- UML工具推荐 Poseidon版本 可以免费下载,自动生成代码 C++ Java C# VB.NET等 (来自德国汉堡的国际性建模软件开发商Gentleware AG的)
- VB深度下潜 之 一米深度(VB指针入门)
- VB公农历1.02版,不需要任何DLL
- 如何让你的VB6 IDE支持鼠标滚轮?
- 用vb制作目录的问题
- C#与VB.NET
- vb api制作总在最前的窗体
- VB之道
- VB.NET中的一些操作(增加第三方控件等)
- ADO.NET 開發高手線上教學課程 视频教程 vb讲解
- 想知道VB中怎么控制电灯点亮吗?请看——VB对I/O端口操作技术(转帖)
- VB中访问存储过程的几种办法(转帖)