怎么根据"出生日期",自动更新"年龄"

21009

员工表里有"出生日期"和"年龄"这两列,能不能根据"出生日期"和当前系统的时间,自动更新"年龄"???

YXH_YXH

多谢分享！！！！！！！！！！

13555609005

谢谢!

t1t2t3t4t5

可是查询的时候先让我输入年龄怎么回事。。

wangru

为什么没有必要在表中实现？如果不在表中，年龄统计怎么办？比如年龄在30~40的统计怎么做？

sbadwaps

Option Compare Database
Function nianling(mynianling As Date) As String

'本函数用于计算准确年龄
Dim i%
Dim sui% '岁
Dim yue% '月
Dim ri% '日       '出处：ACCESS开发者。一切佳有可能，liting
For i = 1 To 150 '进行150次的计算估计能活到150岁以上的是不可想像的
If DateAdd("yyyy", sui + 1, mynianling) <= Date Then
sui = sui + 1
End If
Next i

For i = 1 To 13 '月份只要12次计算就足够了,这里用了13次
If DateAdd("m", sui * 12 + yue + 1, mynianling) <= Date Then
yue = yue + 1
End If
Next i
ri = Date - DateAdd("m", sui * 12 + yue, mynianling)    'Me.日龄当然就容易算了
nianling = sui & "岁" & yue & "个月" & ri & "日"
End Function

在查询里引用本函数就可以进行计算了
比如：
SELECT 报表输出.编号, nianling(出生日期) AS 年龄
FROM 报表输出;

sbadwaps

Option Compare Database
Function nianling(mynianling As Date) As String

'本函数用于计算准确年龄
Dim i%
Dim sui% '岁
Dim yue% '月
Dim ri% '日       '出处：ACCESS开发者。一切佳有可能，liting
For i = 1 To 150 '进行150次的计算估计能活到150岁以上的是不可想像的
If DateAdd("yyyy", sui + 1, mynianling) <= Date Then
sui = sui + 1
End If
Next i

For i = 1 To 13 '月份只要12次计算就足够了,这里用了13次
If DateAdd("m", sui * 12 + yue + 1, mynianling) <= Date Then
yue = yue + 1
End If
Next i
ri = Date - DateAdd("m", sui * 12 + yue, mynianling)    'Me.日龄当然就容易算了
nianling = sui & "岁" & yue & "个月" & ri & "日"
End Function

在查询里引用本函数就可以进行计算了
比如：
SELECT 报表输出.编号, nianling(出生日期) AS 年龄
FROM 报表输出;

傲骨一根

向版主致敬，可以举一返三，凡是计算的字段等可以在查询中进行操作。

xiongyidhz

学习学习

michaeljhb

使用查询即可解决

lhsh

进步进步