当前位置: 主页 > 编程知识 > asp编程 > 身份证号码转出生年月日的ASP程序

身份证号码转出生年月日的ASP程序

时间:2013-11-22来源:互联网 点击:

在ACCESS表里如何将用用户身份证号码变成出生日期(即年月日)?在ACCESS里那个菜单下编程?具体怎么操作,能说详细点吗?谢谢了

以下是代码片段:

  创建一个函数:  
  ‘根据身份证获取出生年月日  
  Public   Function   GetBirthday(ByVal   str   As   String)   As   Date  
          Dim   dt   As   Date  
          If   Len(str身份证号)   =   15   Then  
                  ‘注意:需要区分2000年出生的、2000年后出生的  
                  dt   =   DateSerial("19"   &   Mid(str,   7,   2),   Mid(str,   9,   2),   Mid(str,   11,   2))  
          ElseIf   Len(str身份证号)   =   18   Then  
                  dt   =   DateSerial(Mid(str,   7,   4),   Mid(str号,   11,   2),   Mid(str,   13,   2))  
          Else  
                  dt   =   CDate("1900-01-01")  
          End   If  
           
          GetBirthday   =   dt  
  End   Function

站长资讯网
. TAG:

查看[身份证号码转出生年月日的ASP程序]所有评论
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
用户名: 验证码:
推荐内容最近更新人气排行
关于我们 | 友情链接 | 网址推荐 | 常用资讯 | 网站地图 | RSS | 网站留言