Access数据库VBA代码修改：替换硬编码日期为前两年年初日期

以下是修改后的代码，将硬编码的#1/1/2020#替换为当前年份前两年的1月1日，实现日期的动态计算：

Private Sub txt_bene_birth_date_BeforeUpdate(Cancel As Integer)
    Dim s As String
    Dim twoYearsAgoJan1 As Date
    
    ' 计算当前年份前两年的1月1日
    twoYearsAgoJan1 = DateSerial(Year(Date) - 2, 1, 1)
    
    If IsNull(txt_bene_birth_date) Then
        s = "受益人出生日期为必填字段，不能为空。" & vbCrLf & vbCrLf & vbCrLf
        InputError txt_bene_birth_date, s, "受益人出生日期"
        Exit Sub
    End If
    
    If Not IsNull(txt_bene_birth_date) And (txt_bene_birth_date < #1/1/1900# Or txt_bene_birth_date > twoYearsAgoJan1) Then
        ' 动态生成错误提示中的日期文本
        s = "计算器不支持早于1/1/1900或晚于" & Format(twoYearsAgoJan1, "m/d/yyyy") & "的受益人出生日期。" & vbCrLf & vbCrLf & vbCrLf
        InputError txt_bene_birth_date, s, "受益人出生日期"
        Exit Sub
    End If
    
End Sub

关键修改说明： #

• 新增变量twoYearsAgoJan1，通过DateSerial(Year(Date) - 2, 1, 1)动态计算目标日期：Year(Date)获取当前年份，减2后传入DateSerial生成对应年份的1月1日。
• 将原代码中硬编码的#1/1/2020#替换为变量twoYearsAgoJan1，确保条件判断的日期随年份自动更新。
• 错误提示文本中的日期使用Format(twoYearsAgoJan1, "m/d/yyyy")转换为字符串，保证提示信息与判断逻辑一致。

内容的提问来源于stack exchange，提问作者user2243643