请教:如何自动计算年龄.

bee1004cn

例如我有一个表,共有三个字段,分别是:姓名  出生日期  年龄

当填写出生日期后,能根据当前系统日期自动计算出年龄.年龄当然是自动更新的.

谢谢各位高手了.

swx

查询中输入：int((date()-[出生日期])/12)   表里面就不需要年龄这一字段了。

x5

<TABLE 2pt; BORDER-COLLAPSE: collapse; mso-table-layout-alt: fixed; mso-padding-alt: 0cm 2.0pt 0cm 2.0pt" cellSpacing=0 cellPadding=0 border=0>出生时间 表达式21976-9-1 880<TR 15pt; mso-height-rule: exactly">1988-9-1<TD silver 0.75pt solid; PADDING-RIGHT: 2pt; BORDER-TOP: #ece9d8; PADDING-LEFT: 2pt; BACKGROUND: white; PADDING-BOTTOM: 0cm; BORDER-LEFT: #ece9d8; WIDTH: 145.75pt; PADDING-TOP: 0cm; BORDER-BOTTOM: silver 0.75pt solid; HEIGHT: 15pt; mso-height-rule: exactly; mso-shading: windowtext; mso-pattern: solid white; mso-border-left-alt: solid silver .75pt; mso-border-to

linjingdr

“有一个表,共有三个字段,分别是:姓名  出生日期  年龄

当填写出生日期后,能根据当前系统日期自动计算出年龄.年龄当然是自动更新的.”在表的字段中自动填写年龄，我也不会，我只能实现在窗体、查询、报表中自动填写年龄，也可以自动更新，这种功能你要不要。

还有，哪位大哥能够实现在表的字段中自动填写年龄功能的，请不要吝啬，我也想知道如何做到。

swx

抱歉，公式错误，应该是：int((date()-[出生日期])/365.25)

苍蝇

为什么除365.25啊？

zyp

用datediff("y",出生日期，date())不行吗，它返回的是一个整数（年龄就是一个整数，在大街上被人问及年龄，应该没人会回答说24.256岁了）

zyp

以下是引用linjingdr在2005-8-4 19:30:00的发言：
“有一个表,共有三个字段,分别是:姓名  出生日期  年龄
当填写出生日期后,能根据当前系统日期自动计算出年龄.年龄当然是自动更新的.”

在表的字段中自动填写年龄，我也不会，我只能实现在窗体、查询、报表中自动填写年龄，也可以自动更新，这种功能你要不要。
还有，哪位大哥能够实现在表的字段中自动填写年龄功能的，请不要吝啬，我也想知道如何做到。

自动填写年龄是不现实的，就算在SQL server中的计算字段也只能计算出当前输入资料时年龄，它不会随年份的变化自动更新年龄的数值。

但可以用VBA来更新它:

dim SQLstr as string
SQLstr="Update 表1 set 年龄=datediff('Y',出生日期,date())"
currentproject.connection.execute(SQLstr)

其实我并不建意在表中包含年龄字段，因为它可以根据计算得出，放在表中占用空间。

qun0606

   试试这个

   If Me.出生年月 <> 0 Then

  Me.年龄 = Year(Date) - Year(出生年月)

  我也是今天才做出来的

  看能否行

[此贴子已经被作者于2006-7-7 15:36:17编辑过]