身份证号码变成出生年月日代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】身份证号码变成出生年月日

作者: / 发布于2011/1/6/ 799

<div>创建一个函数：  
 '根据身份证获取出生年月日  
 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 
</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

同语言下

可能有用的

贡献的其它代码Label