Office中国论坛/Access中国论坛

标题: 非常准确的年龄月龄日龄计算函数 [打印本页]

---

作者: sbadwaps    时间: 2009-3-21 22:04
标题: 非常准确的年龄月龄日龄计算函数


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    时间: 2009-3-23 10:54
我顶一下。

---

作者: wfx_291    时间: 2009-5-28 12:05
顶一下。。。。。。。。

---

作者: njy6000    时间: 2009-5-28 12:58
根据出生日期计算人的年龄,学习,感觉现在用岁数很少了,知道出生年月日就够了,没有必要转换为几岁零几个月.

---

作者: YXH_YXH    时间: 2013-5-22 17:59
多谢！！！！！！！

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3