- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 身份证号转换年龄 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92478)
-- 发布时间：2016/11/4 13:04:00
-- 身份证号转换年龄
在输入框里输入身份证号就知道年龄，截止时间为今年8月31日，比如：今天是 2016-05-04，那么截止时间是 2016-08-31。请指教代码，谢谢！
此主题相关图片如下：qq截图20160801124935.png
-- 发布时间：2016/11/4 13:23:00
--
在execl中可以实现，在foxtable中。我找不到这类函数或者表达式
-- 发布时间：2016/11/4 13:25:00
--
Dim
Identify As String = "410110197109172433"Output.Show(ReadBirthDay(Identify))
-- 发布时间：2016/11/4 13:38:00
--
关键是今年
e.Form.Controls("年龄").text = int(datediff("d",ReadBirthDay(e.Form.Controls("身份证号").text),Cdate(cstr(今年)+"-08-31"))/365.25)
[此贴子已经被作者于2016/11/4 13:40:31编辑过]
-- 发布时间：2016/11/4 13:44:00
--
msgbox(date.Today.year)
-- 发布时间：2016/11/4 13:44:00
--
这样对吗？
e.Form.Controls("年龄").text = int(datediff("d",ReadBirthDay(e.Form.Controls("身份证号").text),Cdate(cstr(Date.Today.Year)+"-08-31"))/365.25)
-- 发布时间：2016/11/4 13:45:00
--
谢谢！
-- 发布时间：2016/11/4 13:59:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=89850