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

代码语言

代码分类

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

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

<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>

试试其它关键字

同语言下

.二进制输出
.查找text文本中指定字符或词所在句子
.阻止浏览器冒泡事件，兼容firefox和ie
.xmlhttp 读取文件
.定时跳转页面
.除asp中所有超链接
.获取Session
.打包时自定义应用程序的快捷方式与卸载
.获取局域网中可用SQL Server服务器
.判断汉字字数

可能有用的

.二进制输出
.查找text文本中指定字符或词所在句子
.阻止浏览器冒泡事件，兼容firefox和ie
.xmlhttp 读取文件
.定时跳转页面
.除asp中所有超链接
.获取Session
.打包时自定义应用程序的快捷方式与卸载
.获取局域网中可用SQL Server服务器
.判断汉字字数

贡献的其它代码Label