如下代码是提醒未来几天的生日信息，请问如何改成提醒的是本月所有人员的生日信息（本月1号到最后一天的）:Tables("人力资源_table19").SetHeaderRowHeight(36)
Tables("人力资源_table19").DefaultRowHeight = 36
Dim ids As String
Dim n As Integer = 10 '未来天数,含今天
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 &"天内有员工过生日,给他们送去祝福吧.","生日提醒")
Tables("人力资源_table19").filter = "[_Identify] In (" & ids &")"
Else
Tables("人力资源_Table19").filter = "false"
End If
加好友 
发短信
Post By：2023/6/21 14:20:00 [只看该作者]
