主题：[求助]窗体中日期格式及时间返回的问题请教

已过期  dr("过期日期") < Date.Today

Dim t As TimeSpan

t = dr("过期日期") - Date.Today

t.day < 30 一个月内 

t.day < 90 1至3个月内

一个月按30天算,不知道有没有更简单的方法没,这是偶的方法

呵呵, 应该用林老师的更准确改成这样

Dim filter As String
Dim sl As String = e.Form.Controls("ComBoBox1").Text
Select Case sl
    Case "已过期"
        filter = "过期日期 <  #" & Date.ToDay & "#"
    Case "一个月内到期"
        filter = "过期日期 > = #" & Date.ToDay & "# And 过期日期 < = #" & Date.Today.AddMonths(1) & "#"
    Case "1-3个月到期"
        filter = "过期日期 > = #" & Date.ToDay.AddMonths(1) & "# And 过期日期 < = #" & Date.Today.AddMonths(3) & "#"
    Case "3-6个月到期"
        filter = "过期日期 > = #" & Date.ToDay.AddMonths(3) & "# And 过期日期 < = #" & Date.Today.AddMonths(6) & "#"
    Case "6-9个月到期"
        filter = "过期日期 > = #" & Date.ToDay.AddMonths(6) & "# And 过期日期 < = #" & Date.Today.AddMonths(9) & "#"
    Case "9-12个月到期"
        filter = "过期日期 > = #" & Date.ToDay.AddMonths(9) & "# And 过期日期 < = #" & Date.Today.AddYears(1) & "#"
    Case "一年后到期"
        filter = "过期日期 > = #" & Date.ToDay.AddYears(1) & "#"
End Select
Tables("表A").Filter = filter