谁能告诉我年龄的计算方法并详细讲解

poly · 发表于 2007-2-17 18:24:00

在一个人事表中有“出生日期”、“入厂日期”格式都为1980-08-80，我要计算出他的入厂年龄即“入厂日期”减“出生日期”，要求精确到天，当计算出入厂年龄小于16时弹出提示“此人小于16岁，属童工！！” 请问该怎么弄，希望能详细讲解。

[此贴子已经被作者于2007-2-18 10:07:36编辑过]

红尘如烟 · 发表于 2007-2-26 02:28:00

以下是引用一点通在2007-2-25 9:43:00的发言：

准确的计算方法应该是这样,

If DateAdd("yyyy", 16, [出生日期]) > [入厂日期] Then MsgBox "此人小于16岁，属童工！！ ", vbOKOnly, ""

嗯，这一招果然高明![em02][em02][em02]

一点通 · 发表于 2007-2-25 18:04:00

以下是引用poly在2007-2-25 9:52:00的发言：
我是在窗体和查询中用哦

请上传你的示例

poly · 发表于 2007-2-25 17:52:00

我是在窗体和查询中用哦

一点通 · 发表于 2007-2-25 17:43:00

准确的计算方法应该是这样,

If DateAdd("yyyy", 16, [出生日期]) > [入厂日期] Then MsgBox "此人小于16岁，属童工！！ ", vbOKOnly, ""

365.25表面看准确,因出生在不同的时候,闰年数也不一样的,所以会出现误差

[此贴子已经被作者于2007-2-25 9:45:24编辑过]

红尘如烟 · 发表于 2007-2-25 05:02:00

以下是引用poly在2007-2-20 21:47:00的发言：
有些不明白，为啥是除365.25呢

一年是365天，四年一个闰年要多出来一天，平均下来一年就是365.25天

glw · 发表于 2007-2-25 04:30:00

If (Val(DateDiff("yyyy", [出生日期], [入厂日期]) + Int(Format([入厂日期], "mmdd") < Format([出生日期], "mmdd"))) < 16) Then

MsgBox "此人小于16岁，属童工！！ ", vbOKOnly, ""

poly · 发表于 2007-2-21 05:47:00

有些不明白，为啥是除365.25呢

plmm1999 · 发表于 2007-2-19 21:19:00

这对我也非常有用,谢谢了!

红尘如烟 · 发表于 2007-2-19 10:38:00

If DateDiff("d",[出生日期],[入厂日期]) / 365.25 < 16, Then MsgBox "此人为童工！"

帐号		自动登录	找回密码
密码			注册

[其它] 谁能告诉我年龄的计算方法并详细讲解

群介绍
主题无相 (随机显示版	同地区群块其他地区)