怎样在vb中比较两个日期大小

Question

我在做一个食品库存系统。用的是vb+access。。。其中我想在食品出库的同时判断此出库的食物有无过期，并显示有无过期状态。。
请教各位高手，我怎样编写代码？

（库存表中有出厂日期和到期日期）

Answer 1

日期比较其实直接比较2个字符串就行了
dim a as string
dim b as string
a="日期1"
b="日期2"
if a>b then
msgbox("过期")
else
msgbox("没过期")
end if

Answer 2

两个日期间用format(date(),"yyyy-mm-dd")初始化后，直接用大小于号比较就行了。

Answer 3

我一般用Clng来比较例如
if clng(date1)>clng(date2) then
'.....
endif

Answer 4

日期运算符与日期表达式
日期表达式是用日期运算符“+”或“-”用算数表达式、日期型常量、日期型变量、日期函数等连接起来的式子。有一下三种运算方式：
①两个日期型数据相减，其结果是一个数值型数据（相差的天数）
②日期型数据加上天数，其结果为一个日期型数据
③日期型数据减去天数，其结果为一个日期型数据

Answer 5

datediff
用法不多说了。
下面是参考网页。

参考资料：http://doc.51windows.net/vbscript/?url=/vbscript/html/vsfctDateDiff.htm

本回答被提问者采纳