Access爱好者--
所属分类: 实用代码 作者: 李啸林 更新日期:2003-12-18 21:46:15 阅读次数:657

几个常用的身份证相关函数


Public Function SfzToXb(身份证号 As String) As String
Dim i As Integer

If Len(身份证号) = 15 And IsNumeric(Right(身份证号, 1)) Then
  i = CInt(Right(身份证号, 1))
  If i Mod 2 = 0 Then SfzToXb = "女" Else SfzToXb = "男"
End If
If Len(身份证号) = 18 And IsNumeric(mID(身份证号, 17, 1)) Then
  i = CInt(mID(身份证号, 17, 1))
  If i Mod 2 = 0 Then SfzToXb = "女" Else SfzToXb = "男"
End If

End Function


Public Function SfzToRq(身份证号 As String) As Date
Dim strRq As String

If Len(身份证号) = 15 Then
  strRq = mID(身份证号, 9, 2) & "/" & mID(身份证号, 11, 2) & "/" & "19" & mID(身份证号, 7, 2)
  If IsDate(strRq) Then SfzToRq = CDate(strRq)
End If
If Len(身份证号) = 18 Then
  strRq = mID(身份证号, 11, 2) & "/" & mID(身份证号, 13, 2) & "/" & mID(身份证号, 7, 4)
  If IsDate(strRq) Then SfzToRq = CDate(strRq)
End If

End Function


'长身份证到短身份证
Public Function LSfzToS(Sfz As String) As String
 LSfzToS = Left(Sfz, 6) & mID(Sfz, 9, 9)
End Function



--------------------------------------------------------------------------------
相关文章

将15的身份证号升为18位的函数 2003-10-18 10:00:59


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链