求高手进一下，帮我解决一下吧。 - 编程论坛

#2

啊良2014-08-20 19:55

用1个记时器控件,在加上判断语句,时间一到就响啦

#3

w3609894262014-08-20 22:48

你用的应该是数据库把。。。直接条件筛选掉不就好了么？
select …… from 表 where 购买时间-兑付时间<5不就好了么

#4

sghvfpl2014-08-21 10:54

回复 3 楼 w360989426

好的。我先试试呀。多谢了。

#5

sghvfpl2014-08-21 11:01

回复 3 楼 w360989426

追问一下，日期相减怎么实现呀？比如：购买日期:2014-8-21 兑付日期:2014-9-20 ，我用的是listview,购买日期是从文件框里面文读取到listviews中的。数据库中有好多时间呢，具体怎么写这个函数呢？并且还得显示出来用户信息。比如说姓名：张三，性别：男，购买日期：2014-8-21，兑付日期：2014-9-20，身份证号等信息。

#6

风吹过b2014-08-21 17:56

数据库里，你的日期格式是什么格式？日期类型？文本类型？

如果是日期类型，直接做减法。
如果是文本类型。

那就要变化了。
文本类型。
首先要生成最后 5天的日期。

Dim d As Date
d = Date
d = d + 5
Dim s As String
s = d
MsgBox s

这是5天前的日期。

然后根据你数据里的文本的格式，把这个日期格式化为你数据库里的日期格式，
然后查询
select * from 表 where 兑付日期 = '" & d1 & "'or 兑付日期='" & d2 "'or 兑付日期='" & d3 & "'or 兑付日期='" & d4 & "'or 兑付日期='" & d5 & "';"

直接取记录的数据就是了。

#7

w3609894262014-08-21 18:00

回复 5 楼 sghvfpl

你直接日期想减就是了，可以的