自动生成年龄和教龄

檐下风铃　发表于：2009-12-18 16:08:25 　

复制

在前台设计表时，有出生年月、年龄、参加工作时间和教龄四个字段，怎样根据出生年月字段，自动在年龄字段生成年龄，根据参加工作时间自动生成教龄（教龄的计算是超过当前日期而未满周年计1年）

Top

蒋元根发表于：2009-12-19 11:11:13

Private Sub 出生日期_AfterUpdate()
Me.年龄 = Year(Date) - Year(Me.出生日期)
End Sub

Private Sub 工作时间_AfterUpdate()
Me.教龄 = Year(Date) - Year(Me.工作时间)
End Sub

点击下载此附件

Top

樟树发表于：2009-12-19 21:09:41

借用一下蒋元根老师的教师数据库

运行一下查询：

UPDATE 教师表 SET 教师表.年龄 = Year(Date())-Year([出生日期]), 教师表.教龄 = Year(Date())-Year([工作时间])+IIf(Month(Date())>Month([工作时间]),1,IIf(Month(Date())=Month([工作时间]),IIf(Day(Date())>Day([工作时间]),1,0),0));

Top

樟树发表于：2009-12-19 21:11:46

点击下载此附件

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

自动生成年龄和教龄