以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何根据出生日期或身份证号码生成年龄  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98641)
--  作者：zyxhx
--  发布时间：2017/4/3 17:59:00
--  [求助]如何根据出生日期或身份证号码生成年龄
请问：在foxtable数据表中如何根据出生日期或身份证号码生成年龄？
--  作者：zyxhx
--  发布时间：2017/4/3 21:20:00
--  
请专家指点，谢谢！
--  作者：dyzkdxy
--  发布时间：2017/4/3 23:23:00
--  

在表的datacolchanged事件中加以下代码：


If e.DataCol.Name = "身份证号"  And  e.DataRow("身份证号") IsNot Nothing Then
    Dim dt1 As Date
    dt1=Date.today()
    Dim dt2 As Date=e.DataRow("出生日期")
    Dim y,m,d As Integer
    DateYMD(dt1,dt2,y,m,d)
    If m*d<>0 Then
        y=y+1
    End If
    e.DataRow("年龄")=y
End If
--  作者：dyzkdxy
--  发布时间：2017/4/3 23:24:00
--  
以上是我的项目中的代码，分享一下！
--  作者：dyzkdxy
--  发布时间：2017/4/3 23:28:00
--  

出生年月是从身份证号中提取的，所以有第一行这样的判断，因为以上代码是摘录的，不全

 
--  作者：有点蓝
--  发布时间：2017/4/4 9:57:00
--  
参考：http://www.foxtable.com/webhelp/scr/2647.htm

http://www.foxtable.com/webhelp/scr/1468.htm


http://www.foxtable.com/webhelp/scr/0320.htm
--  作者：zyxhx
--  发布时间：2017/4/4 12:56:00
--  
非常感谢！我试试。
--  作者：hlqyzh
--  发布时间：2017/10/11 11:30:00
--  
如何根据出“出生日期”生成“年龄”列
--  作者：有点甜
--  发布时间：2017/10/11 12:09:00
--  
以下是引用hlqyzh在2017/10/11 11:30:00的发言：
如何根据出“出生日期”生成“年龄”列

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105975&skin=0