您的位置:首页 > 网络编程 > ASP

如何将身份证号码变成出生年月日

日期:2007-04-18 10:19:18 点击: 来自: 作者:

在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  

More..素材图片 Picture Navigation
ASP热门 Class Hot
ASP推荐 Class Commend
版权所有:中国网站资源 2005- 未经授权禁止复制或建立镜像 This Site Tech:XHTML+DIV+CSS+Javascript
CopyRight ® 2005- www.chinaddv.com online services. all rights reserved. ICP06016627
Optimized to 1024x768 to Firefox,Netscape,Opera,MS-IE6+.