非常准确的年龄月龄日龄计算函数

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 报表输出;

jackysu78

我顶一下。

wfx_291

顶一下。。。。。。。。

njy6000

根据出生日期计算人的年龄,学习,感觉现在用岁数很少了,知道出生年月日就够了,没有必要转换为几岁零几个月.

YXH_YXH

多谢！！！！！！！