主题：碰到一个离奇的问题，关于生日提醒（已解决）

自己做的一个生日提醒窗体，原先运行好好的，到了2013年就运行不正常了，不过把表格内容清掉以后又正常了，是在匪夷所思，请大家帮忙看看，感激涕零……

不说了，上图，上项目文件

 

窗口是“生日提醒”的afterload事件，去年运行都正常，今年就出问题了，还有，如果没有数据是不会出问题的，有数据就出问题了

 

此主题相关图片如下：错误.jpg

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:宝贝计划影楼系统管理软件.table

 生日提醒通用代码。

Dim ids As String
Dim n As Integer = 9 '未来天数,含今天

Dim eDate As Date = Date.Today.AddDays(n)
For Each dr As DataRow In DataTables("员工").Select("姓名 is not null")
    Dim month As Integer = dr("生日").Month
    Dim day As Integer = dr("生日").Day
    Dim sDate As Date = new Date(Date.Today.Year, month, day)
    Dim days As TimeSpan = eDate - sDate
    If days.TotalDays >= 0 AndAlso days.TotalDays <= n OrElse days.TotalDays > 365 Then
        ids = ids & "," & dr("_Identify")   '记录生日的行号
    End If
Next

If ids > "" Then
    ids = ids.Trim(",")
    messagebox.show("未来"& n &"天内是" & ids & "的生日,给他们送去祝福吧.","生日提醒")
    Tables("窗口1_table1").filter = "[_Identify] In (" & ids &")"
End If

调整年、月、日顺序看看！

怎么调？

 代码这样写。忘记判断闰年2月29号的情况了。

Dim ids As String
Dim n As Integer = 9 '未来天数,含今天

Dim eDate As Date = Date.Today.AddDays(n)
For Each dr As DataRow In DataTables("基本信息").Select("出生日期 is not null")
    Dim month As Integer = dr("出生日期").Month
    Dim day As Integer = dr("出生日期").Day 
    If month = 2 AndAlso day = 29 Then
        If Date.IsLeapYear(Date.Today.Year) = False Then day = 28
    End If
    Dim sDate As Date = new Date(Date.Today.Year, month, day)
    Dim days As TimeSpan = eDate - sDate
    If days.TotalDays >= 0 AndAlso days.TotalDays <= n OrElse days.TotalDays > 365 Then
        ids = ids & "," & dr("_Identify")   '记录生日的行号
    End If
Next
If ids > "" Then
    ids = ids.Trim(",")
    messagebox.show("未来"& n &"天内是" & ids & "的生日,给他们送去祝福吧.","生日提醒")
    Tables("基本信息").filter = "[_Identify] In (" & ids &")"
End If

问题终于解决了，非常感谢。