主题：判断日期问题！

Dim ids As String

Dim n As Integer = 6 '未来天数,含今天,所以实际是未来7天

For Each dr As DataRow In DataTables("会员").DataRows

    Dim s As String = dr("birthday")

    s = s.SubString(0,4) & "-" & s.SubString(4,2) & "-" & s.SubString(6,2)

    Dim dt As Date = CDate(s)

    Dim dt1 As New Date(Date.Today.Year,dt.Month,dt.Day)

    Dim dt2 As  New Date(Date.Today.AddDays(n).Year,dt.Month,dt.Day)

    If (dt1 >= Date.Today AndAlso dt1 < Date.Today.AddDays(n)) OrElse (dt2 >= Date.Today AndAlso dt2 < Date.Today.AddDays(n)) Then

        ids = ids & "," & dr("_Identify")

    End If

Next

If ids > "" Then

    ids = ids.Trim(",")

    Tables("会员").filter = "[_Identify] In (" & ids &")"

End If