主题：求助：周岁的计算公式

在易表中用函数可以计算出准确的周岁年龄，而狐表中没有这个函数，用代码不知道如何编写，请哪位高手指点

可以根据身份证号计算年龄

示例

例如年龄列由出生日期计算得出，我们将DataColChanged事件设为：

If e.DataCol.Name = "出生日期" Then
    If e.DataRow.IsNull("出生日期") Then '如果没有输入出生日期
        e.DataRow("年龄") = Nothing '则清空年龄
    Else
        '否则计算年龄
        e.DataRow("年龄") = Date.Today.Year - e.DataRow("出生日期").Year
    End If
End If

这个事例计算出的只是虚岁

那你说的周岁是如何计算的？

就是年对年减，月对月减得出来的年龄

比如说2009年4月生的人到目前还不到一岁

DateDiff(interval,date1,date2)
返回两个日期之间的间隔。
Interval 包含以下设置：
yyyy 年
q    季度
m    月
y    某年的某一天
d    天
w    工作日
ww   周
h    时
n    分
s    秒

你说的这个我不明白怎么设置，不是狐表里没有函数吗

有很多函数呢，呵呵
第一种：放在按钮中：
e.Form.Controls("TextBox1").Value = Int(DateDiff("m", CurrentTable.Current("出生年月"), Date.Today)/12)
第二种：表DataColChanged事件

 

If e.DataCol.Name = "出生年月" Then
    If e.DataRow.IsNull("出生年月") Then '如果没有输入出生日期
        e.DataRow("年龄") = Nothing '则清空年龄
    Else
        '否则计算年龄
        e.DataRow("年龄") =Int(DateDiff("m", e.DataRow("出生年月"), Date.Today)/12)

    End If  
End If