Foxtable(狐表)用户栏目专家坐堂 → 身份证号提取年龄


  共有2341人关注过本帖平板打印复制链接

主题:身份证号提取年龄

帅哥哟,离线,有人找我吗?
Liangcai
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2541 威望:0 精华:0 注册:2011/9/24 13:30:00
身份证号提取年龄  发帖心情 Post By:2017/5/21 22:09:00 [只看该作者]

请老师指教,谢谢!
出生日期到每年的8月31号
e.Form.Cont rols("Label1").Text =  int(datediff("d",Cdate(Mid(e.Form.Controls("身份证号").Text ,7,2) & "-" & Mid(e.Form.Controls("身份证号").Text ,9,2) & "-" & Mid(e.Form.Controls("身份证号").Text,11,2)),Cdate(cstr(year(Date())) + ‘-08-31’))/365.25)

 回到顶部