有效期限进行筛选，请帮忙找原因

luchanghai

求组各位大神，这个表格是对测量工具进行登录统计。

测量工具是需要定期进行校正，所以使用筛选方法及时对要过期量具进行校正。

目前的问题是对有效期进行筛选时出现错误。有效期10月，11月，12月时错误。（10，11，12被识别为1月，本人感觉）

筛选的三种：情况①  本月内将过有效期
                    情况②  3个月内将过有效期 （暂设定3个月，可以选择）
                    情况③  已经过有效期





有位大神帮忙看了一下，对下面的代码有疑问。还请帮忙确认。

类模块clsSearchCond
“ If mExpDate <> "" Then
        If IsDate(mExpDate) = False Then
            mySql = mySql & "AND 有效期限 >=#" & mExpDate & "/1/1" & "# " & _
                            "AND 有效期限 <=#" & mExpDate & "/12/1" & "# "
        Else
            mySql = mySql & "AND 有效期限 =#" & mExpDate & "# "
            
        End If
    End If
    If mExpDateTerm <> "" Then
        Dim baseDate As Date    '基準有効期限
        
        baseDate = GetBaseExpDate
        mySql = mySql & "AND 有效期限 >=#" & baseDate & "# " & _
                        "AND 有效期限 <=#" & DateAdd("m", val(mExpDateTerm), baseDate) & "# "
        
    End If
    If mExpired <> "" Then
        mySql = mySql & "AND 有效期限 < #" & mExpired & "#"”

准提部林

只比對"年月", "日"不理???
給個大約方法//
sub text()
YM& = year(date)*12 + month(date) '當前年月
dd = "2023.10" '有效年月(文本)
KM& = split(dd, ".")(0)*12 + split(dd, ".")(1)
m = KM - YM
T$ =switch(m < 0, "已过期", m = 0, "本月过期", m < 4, "三個月內过期", m = m, "無")
msgbox T
end sub

luchanghai

准提部林 发表于 2023-6-11 10:19
只比對"年月", "日"不理???
給個大約方法//
sub text()

是的，只是年月进行对比，日忽略，输入数据后生成到量具DB工作簿时格式变成年/月/1，进行筛选时再冲量具DB工作簿读取进行筛选。

luchanghai

量具DB工作簿有效期限日期整体都是年/月/1

luchanghai

准提部林 发表于 2023-6-11 10:19
只比對"年月", "日"不理???
給個大約方法//
sub text()

大神这个要怎么改 改在哪里?