 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
\\\'将身份证从15位升级为18位的函数 Function GetNewIDCard(ByVal IDCard As String) As String Dim i, S As Integer Dim Wi() As String = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1", ",") Dim Wf() As String = Split("1,0,X,9,8,7,6,5,4,3,2", ",") If Mid(IDCard, 7, 2) >= Mid(Now.AddYears(-14).Year, 3, 2) Then IDCard = Mid(IDCard, 1, 6) & "18" & Mid(IDCard, 7, 9) Else IDCard = Mid(IDCard, 1, 6) & "19" & Mid(IDCard, 7, 9) End If For i = 0 To 16 S += Wi(i) * Mid(IDCard, i + 1, 1) Next Return IDCard & Wf(S Mod 11) End Function 返回类别: 教程 上一教程: XMLHTTP ACTIVEX对象的访问ASP区段变量的其他方式 下一教程: 客户端COOKIE中文编程(上) 您可以阅读与"将身份证从15位升级为18位的函数"相关的教程: · 身份证验证代码函数 · 一个测试数据库连接的函数 · 验证身份证号是否准确的代码 · ASP中的函数应用方式及应用举例(二) · ASP中的函数应用方式及应用举例(一) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
