主题：身份证号转换年龄

 在输入框里输入身份证号就知道年龄，截止时间为今年8月31日，比如：今天是 2016-05-04，那么截止时间是 2016-08-31。请指教代码，谢谢！

此主题相关图片如下：qq截图20160801124935.png

在execl中可以实现，在foxtable中。我找不到这类函数或者表达式

 

Dim Identify As String = "410110197109172433"
Output.Show(ReadBirthDay(Identify))

关键是今年

e.Form.Controls("年龄").text = int(datediff("d",ReadBirthDay(e.Form.Controls("身份证号").text),Cdate(cstr(今年)+"-08-31"))/365.25)

 

msgbox(date.Today.year)

 

这样对吗？

e.Form.Controls("年龄").text = int(datediff("d",ReadBirthDay(e.Form.Controls("身份证号").text),Cdate(cstr(Date.Today.Year)+"-08-31"))/365.25)

谢谢！

参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=89850