怎么进行日期的比较?

怎么进行日期的比较?我在做一个药品管理系统,需要找出所有过期的药品,怎么进行日期的比较啊??谢谢大家了.date lde_生产日期 = 取出生产日期 date lde_当前日期 = today()int li_有效天数 = 有效天数if RelativeDate ( lde_生产日期, li_有效天数) <= lde_当前日期 then MessageBox("" , "未过期")else MessageBox("" , "已过期")end if我是想把所有过期的药品放到一个DW中,怎么做?Date iTodayiToday=today()strSQL=strSQL " where yxq<:iToday"dw_1.SetSQLselect(strSQL)dw_1.Retrieve()strSQL=strSQL1为什么这样做不可以呢?建议你在数据窗口里新增一计算列 , if(RelativeDate ( 生产日期, 有效天数) <= today() , 1 , 0)然后过滤出 该计算列 = 0 的数据就全是过期的..昏，动态sql中不能加入:iToday参数的，应该用：strSQL=strSQL " where yxq < '" String(iToday) "'"strSQL是什么值，还有yxq是什么类型？Date iTodayiToday=today()strSQL=strSQL " where yxq<:iToday"dw_1.SetSQLselect(strSQL)dw_1.Retrieve()---------------------------------------如果yxq是过期日期的话就可以哈哈,OK啦,谢谢你们~~~:)上面的是我错了，没细看..同意 li_d_s(我是小鬼-日货？送我都不要，哪怕是丰田和日产的轿车)那该结贴了