再请教一个关于时间的问题，求教老师解答。

Private Sub 参加工作年月_AfterUpdate()
 Me.工龄 = Year(Date) - Year([参加工作年月])
 
 If 工龄 < 10 Then
   Me.年休假时长 = 5
 ElseIf 工龄 >= 10 And 工龄 <= 20 Then
    Me.年休假时长 = 10
 Else
   Me.年休假时长 = 15
 End If
 
End Sub

Private Sub 出生年月_AfterUpdate()
  If [性别] = "男" Then
   Me.退休时间 = Year([出生年月]) + 60 & "-" & Month([出生年月]) & "-" & Day(出生年月)
 Else
   Me.退休时间 = Year([出生年月]) + 55 & "-" & Month([出生年月]) & "-" & Day(出生年月)
 End If
End Sub

楼上回答的很棒!