主题：关于生日提醒的问题

参照帮助中的生日提醒部分写了如下代码，目的是由用户自已设定生日提醒的天数（存在a中），如设为180天（a=180），系统可查找出所有在未来30内过生日的用户，但根据帮助中的代码做完后发现的问题是：凡是跨年过生日的人是无法查找出的，例如，有个客户是1月1日过生日，这段代码只能找到生日是12月31日内的，1月1日这个人是找不到的，这段代码如下：问题应该是出在标红色的部分，是它限定了只能查找今年的，请问如何修改一下能够解决这个问题，没不出太好的解决办法

Dim a As Integer=RibbonTabs("会员信息管理").Groups("生日提醒").Items("数值输入框1").value

Dim nms As String
For Each dr As DataRow In DataTables("会员档案").DataRows
    Dim dt As Date = dr("客户生日")
    dt = New Date(Date.Today.Year,dt.Month,dt.Day)
    If dt >= Date.Today AndAlso dt < Date.Today.AddDays(a) Then
        nms = nms & ",'" & dr("车牌号") & "'"
    End If
Next
If nms > "" Then
    nms = nms.Trim(",")
    Tables("会员档案").filter = "[车牌号] In (" & nms &")"
Else
    Tables("会员档案").filter =  "[车牌号] =''"
    messagebox.show("没有此期间过生日的客户!","提示")
End If