'日本
Dim flt As String = Format(Date.Today,"d").Replace(Format(Date.Today,"yyy"),"") & " "
flt = "Convert([个人基本资料_出生年月], 'System.String') Like '%" & flt & "%'"
Tables("员工登记表格").filter = flt
'月本
Dim flt As String
Dim d As Date = Date.Today
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim fd As Date = New Date(y,m,1) '该月的第一天
Dim ld As Date = New Date(y,m,Days) '该月的最后一天
flt = "[个人基本资料_出生年月] >=#" & fd & "# and [个人基本资料_出生年月] <=#" & ld & "#"
Tables("员工登记表格").filter = flt
[此贴子已经被作者于2013-6-21 15:17:24编辑过]
加好友 
发短信
Post By：2013/6/21 15:17:00 [显示全部帖子]
