年龄计算，精确到月（在线等回答）

baw009

我有一个出生年月字段类型为时间/日期型，有一年龄字段类型为数字型，现在在窗体中我想年龄字段里计算出的年龄为？岁？月，？为文本框，如何计算呢？帮忙写出代码。等…

Roadbeg

可以使用以下语句得到:
datediff("m",firstdate,nextdate)
该语句得到两个日期之间相关多少个月.

baw009

我的年龄字段后是两个文本框，第一个文本框表示岁，第二个文本框表示月，代码如何写呢？

Roadbeg

变
datediff("m",firstdate,nextdate)
为
datediff("y",firstdate,nextdate)
则得到两个日期之间相差的年

baw009

以下是我写的年的文本框的代码
Private Sub txt出生年月_AfterUpdate()
  Me.txt年龄.Value = Year(Date) - Year(Me.txt出生年月.Value)
End Sub
计算出的结果是正确的
月的代码如何写呢？

大熊

月的英文是MONTH吗？

baw009

是的，month

huanghai

int(datediff("M",date1,date2)/12) & "年" & ((datediff("M",date1,date2)/12)-int(datediff("M",date1,date2)/12)) & "月"

baw009

按照版主说的做了，可是不行，请版主帮忙看一下我上面写的代码，帮我写一下月的代码即可