以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何从身份证号中取年份  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66039)

--  作者:hjj0601
--  发布时间:2015/3/28 1:20:00
--  如何从身份证号中取年份
如何从身份证号中取出生年份(而不是取出生日期),代码如何写,并将代码放在什么地方?看帮助只有出生日期的方法。
要得到以下截图效果

图片点击可在新窗口打开查看此主题相关图片如下:截图00.jpg
图片点击可在新窗口打开查看


--  作者:gaoqr
--  发布时间:2015/3/28 6:36:00
--  
去帮助搜索一下 :身份证  ,就有答案了
--  作者:hjj0601
--  发布时间:2015/3/28 10:33:00
--  
我搜索了,帮助中只有关于取出生日期的,我只要取年份,不要月和日。得到截图的效果就行了。
--  作者:hjj0601
--  发布时间:2015/3/28 11:03:00
--  
在“身份证号”中输入身份证号后,在“出生年份”中就自动生成年份,如1970、1980等
--  作者:狐狸爸爸
--  发布时间:2015/3/28 12:45:00
--  

呵呵,有了日期,去年份不是很简单吗?

http://www.foxtable.com/help/topics/1424.htm

http://www.foxtable.com/help/topics/1337.htm

http://www.foxtable.com/help/topics/0249.htm

 

 

 

If e.DataCol.Name = "身份证号码" Then \'是身份证号码发生变化吗?
    If e.DataRow.IsNull("身份证号码") Then \'身份证号码是否为空
        e.
DataRow("年") = Nothing \'如果为空,则清除出生日期
   
Else
   
    \'否则从身份证号码列中提取出生日期
        e.
DataRow("年") = ReadBirthday(e.DataRow("身份证号码")).Year()
    End
If
End
If


--  作者:hjj0601
--  发布时间:2015/3/28 15:33:00
--  
谢谢狐狸爸爸!