Office中国论坛/Access中国论坛

标题: 年龄计算，精确到月（在线等回答） [打印本页]

作者: baw009 时间: 2003-3-6 16:52
标题: 年龄计算，精确到月（在线等回答）
我有一个出生年月字段类型为时间/日期型，有一年龄字段类型为数字型，现在在窗体中我想年龄字段里计算出的年龄为？岁？月，？为文本框，如何计算呢？帮忙写出代码。等…

作者: Roadbeg 时间: 2003-3-6 17:22
可以使用以下语句得到:
datediff("m",firstdate,nextdate)
该语句得到两个日期之间相关多少个月.

作者: baw009 时间: 2003-3-6 17:25
我的年龄字段后是两个文本框，第一个文本框表示岁，第二个文本框表示月，代码如何写呢？

作者: Roadbeg 时间: 2003-3-6 17:32
变
datediff("m",firstdate,nextdate)
为
datediff("y",firstdate,nextdate)
则得到两个日期之间相差的年

作者: baw009 时间: 2003-3-6 17:34
以下是我写的年的文本框的代码
Private Sub txt出生年月_AfterUpdate()
Me.txt年龄.Value = Year(Date) - Year(Me.txt出生年月.Value)
End Sub
计算出的结果是正确的
月的代码如何写呢？

作者: 大熊 时间: 2003-3-6 17:35
月的英文是MONTH吗？

作者: baw009 时间: 2003-3-6 17:36
是的，month

作者: huanghai 时间: 2003-3-6 17:37
int(datediff("M",date1,date2)/12) & "年" & ((datediff("M",date1,date2)/12)-int(datediff("M",date1,date2)/12)) & "月"

作者: baw009 时间: 2003-3-6 17:49
按照版主说的做了，可是不行，请版主帮忙看一下我上面写的代码，帮我写一下月的代码即可

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