- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]怎样从身份证来计算年龄的函数 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=43733)
-- 发布时间：2013/12/13 17:57:00
-- [求助]怎样从身份证来计算年龄的函数
怎样从身份证来计算年龄
-- 发布时间：2013/12/13 23:18:00
--
datachanged 事件
If e.DataCol.name="身份证号码"
Dim str As String
str=CurrentTable.Current("身份证号码")
If str.Length=18 Then
CurrentTable.Current("年龄")=Date.today.year- cint(str.Substring(6,4))
ElseIf str.Length=15 Then
CurrentTable.Current("年龄")=Date.today.year- cint(str.Substring(6,2))-1900
End If
End If
[此贴子已经被作者于2013-12-13 23:18:34编辑过]
-- 发布时间：2013/12/14 9:21:00
--
我想问一下，直接用函数来求年龄没有吗，因为我还没有达到用代码的程度
-- 发布时间：2013/12/14 9:54:00
--
请各位高手帮忙看一下为个表中年龄和工龄和函数
-- 发布时间：2013/12/14 9:56:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2013/12/14 9:57:00
--
刚才没把文件上传上去，请各位高手帮忙感谢
-- 发布时间：2013/12/14 22:55:00
--
把下面代码写到 表事件 datacolchanged事件里去
If e.DataCol.Name = "身份证号码" Then
e.DataRow("年龄") = Date.today.Year - ReadBirthDay(e.NewValue).Year
End If