老师：
我想问如下问题，望回复为谢！
表名：A

ID YM （药名） YXRQ （有效日期） XZZT（现在状态）
1 感冒药 2006-10-1 正常
2 某某药 2005-2-1 过期

我想当日期快到2006年10月1号的时候，进入系统时，系统会提示：“感冒药的有效期快到了，还有‘XX’天”；当日期到2006年10月1号的时候进入系统时，系统会提示：“感冒药的有效期已到”，并且会自动的将”现在状态的‘正常’改为‘过期’”；请问老师怎么做！谢谢！

[此贴子已经被作者于2006-4-17 18:23:51编辑过]

Microsoft(R) Visual Basic(R) Scripting Edition DateDiff 函数

语言参考 起始页 | 版本 2

请参阅

---

描述

返回两个日期之间的时间间隔。

语法

DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])

DateDiff 函数的语法有以下参数：

参数	描述
interval	必选。String expression 表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。
date1, date2	必选。日期表达式。用于计算的两个日期。
firstdayofweek	可选。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。
firstweekofyear	可选。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。

设置

interval 参数可以有以下值：

设置	描述
yyyy	年
q	季度
n	月
y	一年的日数
d	日
w	一周的日数
ww	周
h	小时
m	分钟
s	秒

firstdayofweek 参数可以有以下值：

常数	值	描述
vbUseSystem	0	使用区域语言支持 (NLS) API 设置。
vbSunday	1	星期日（默认）
vbMonday	2	星期一
vbTuesday	3	星期二
vbWednesday	4	星期三
vbThursday	5	星期四
vbFriday	6	星期五
vbSaturday	7	星期六

firstweekofyear 参数可以有以下值：

常数	值	描述
vbUseSystem	0	使用区域语言支持 (NLS) API 设置。
vbFirstJan1	1	由 1 月 1 日所在的星期开始（默认）。
vbFirstFourDays	2	由在新年中至少有四天的第一周开始。
vbFirstFullWeek	3	由在新的一年中第一个完整的周开始。

说明

DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。

要计算 date1 和 date2 相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当 interval 为“一周的日数”（“w”）时，DateDiff 返回两个日期之间的星期数。如果 date1 是星期一，则 DateDiff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”（“ww”），则 DateDiff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日，DateDiff 将计算 date2，但即使 date1 是星期日，也不会计算 date1。

如果 date1 晚于 date2，则 DateDiff 函数返回负数。

firstdayofweek 参数会对使用“w”和“ww”间隔符号的计算产生影响。

如果 date1 或 date2 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 (" ") 中并且省略年份，则在代码中每次计算 date1 或 date2 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。

在 interval 为“年”（“yyyy”）时，比较 12 月 31 日和来年的 1 月 1 日，虽然实际上只相差一天，DateDiff 返回 1 表示相差一个年份。

下面例子利用 DateDiff 函数显示给定日期和当天日期之间的天数:

Function DiffADate(theDate)
  DiffADate = "从当天开始的天数:" & DateDiff("d", Now, theDate)
End Function
用DateDiff函数就可以办到楼主需要的功能，函数的作用就是求得两个日期之间相差多少天。

DateDiff()
FUNCTION: 返回两个日期之间的差值 。
SYNTAX: DateDiff(timeinterval,date1,date2 [, firstdayofweek ][,
firstweekofyear]])
ARGUMENTS: timeinterval 表示相隔时间的类型，如“M“表示“月”。
EXAMPLE: <%
fromDate = #8/4/99#
toDate = #1/1/2000#
response.write "There are " & _
DateDiff("d",fromDate,toDate) & _
" days to millenium from 8/4/99."
%>
RESULT: 从8/4/99 到2000年还有 150 天.

谢谢！非常感谢！但是如果用函数
——————————————————————————————————
“DateDiff(timeinterval,date1,date2 [, firstdayofweek ][, firstweekofyear]])”
——————————————————————————————————
差数
“date1”我想用的是系统日期
“date2”我想用的是从数据库表A中查询的YXRQ（有效日期）

请问怎么做？谢谢老师！

老师：帮帮我！谢谢！

datediff("d",now,[有效日期])
用这种语法进行比较，函数用法已经说得很清楚了。

谢谢老师！
但是应该有“select yxrq from A.....”之类什么的。
用datediff("d",now,[有效日期])的时候，假如“有效日期”有很多个，那怎么办？不可能增加一个有效日期就要增加一段代码呀！
谢谢老师帮帮忙！！

有老师在吗？

谢谢老师！
但是应该有“select yxrq from A.....”之类什么的。
用datediff("d",now,[有效日期])的时候，假如“有效日期”有很多个，那怎么办？不可能增加一个有效日期就要增加一段代码呀！
谢谢老师帮帮忙！！

把所有的有效日期写在一个字段中，中间用特殊符号分割，例如2005-2-20||2006-8-5||2006-9-10
然后取出日期的时候用split函数和数组来判断