[求助]虚心请教各位高手，Access VBA中关于日期赋值的问题

菜菜籽

一点通

Private Sub 假期计算_Click()
   
Dim EndDay As Date
EndDay = DateAdd("d", Me.假期天数, Me.假期开始时间)

If Me.假期类别 = "年休假" Or Me.假期类别 = "事假" Then
    Me.假期结束时间 = DateAdd("d", Me.假期天数 + NWorkDay(Me.假期开始时间, EndDay), Me.假期开始时间)
Else
    Me.假期结束时间 = EndDay
End If

End Sub

菜菜籽

十分感谢一点通不吝赐教，对于这种弱弱的问题也细心回答，在此也检讨一下自己基础实在太差，以后还要潜心学艺啊。