已知身份证号:511123199711271018 以系统当前时间为准,计算年龄.
网上有这个:
Function CalcAge(datEmpDateOfBirth as Variant) as Integer
CalcAge = Int(DateDiff("y",datEmpDateOfBirth,Date())/365.25)
End Function
但不知如何用.
请指点下吧.
结果用print 在窗体上显示吧.

把身份证从第7位到14位的数字提取出来，变换成格式“1997-11-27”这样的字符串，而后就可以调用你找到的这个函数了，把提取出的字符串做为参数传进去，返回的就是年龄了。

如果没看错的话，那个函数用错了应该是Int(DateDiff("d",datEmpDateOfBirth,Date())/365.25),把y改成d,再就是如果取整的话，还不如直接写成DateDiff("yyyy",datEmpDateOfBirth,Date),这时得出的就是年龄了，我觉得函数这样写:
'***************************************************************************************'
function CalcAge(身份证 as string) as integer
  dim a as string
  if len(身份证)<18 then exit function
  a=mid(身份证,7,4) & "-" & mid(身份证,11,2) & "-" & mid(身份证,13,2)
  CalcAge=datediff("yyyy",a,date)
end function
Private Sub Form_Load()
  Dim a As String
  a = "511123199711271018"
  MsgBox CalcAge(a)
End Sub
'***************************************************************************************
你把*号之间的部分直接复制，运行就可以看到结果了

[ 本帖最后由 lowxiong 于 2011-4-19 07:07 编辑 ]

谢谢三楼