网站首页
网站导航
Ctrl+D收藏
首 页
代码段
源码包
文档库
工具箱
代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
ASP
】
将身份证从15位升级为18位
作者:
/ 发布于
2011/1/6
/
684
<div> <div><font face="新宋体">Function GetNewIDCard(ByVal IDCard As String) As String</font></div> <div><font face="新宋体"> Dim i, S As Integer</font></div> <div><font face="新宋体"> Dim Wi() As String = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1", ",")</font></div> <div><font face="新宋体"> Dim Wf() As String = Split("1,0,X,9,8,7,6,5,4,3,2", ",")</font></div> <div></div> <div><font face="新宋体"> If Mid(IDCard, 7, 2) >= Mid(Now.AddYears(-14).Year, 3, 2) Then</font></div> <div><font face="新宋体"> IDCard = Mid(IDCard, 1, 6) & "18" & Mid(IDCard, 7, 9)</font></div> <div><font face="新宋体"> Else</font></div> <div><font face="新宋体"> IDCard = Mid(IDCard, 1, 6) & "19" & Mid(IDCard, 7, 9)</font></div> <div><font face="新宋体"> End If</font></div> <div></div> <div><font face="新宋体"> For i = 0 To 16</font></div> <div><font face="新宋体"> S += Wi(i) * Mid(IDCard, i + 1, 1)</font></div> <div><font face="新宋体"> Next</font></div> <div></div> <div><font face="新宋体"> Return IDCard & Wf(S Mod 11)</font></div> <div><font face="新宋体"> End Function</font></div> </div>
评论列表
本站所提供的代码,版权归原作者所有,若有侵犯作者版权,请与我们联系,我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。
试试其它关键字
同语言下
.
二进制输出
.
查找text文本中指定字符或词所在句子
.
阻止浏览器冒泡事件,兼容firefox和ie
.
xmlhttp 读取文件
.
定时跳转页面
.
除asp中所有超链接
.
获取Session
.
打包时自定义应用程序的快捷方式与卸载
.
获取局域网中可用SQL Server服务器
.
判断汉字字数
可能有用的
.
二进制输出
.
查找text文本中指定字符或词所在句子
.
阻止浏览器冒泡事件,兼容firefox和ie
.
xmlhttp 读取文件
.
定时跳转页面
.
除asp中所有超链接
.
获取Session
.
打包时自定义应用程序的快捷方式与卸载
.
获取局域网中可用SQL Server服务器
.
判断汉字字数
贡献的其它代码
Label
地图
本站
我们
服务
版权
联系
回馈
博客