我现在有一个程序，程序里面有一个购买日期，一个兑付日期。我想让系统自动提醒快到期（提前几天），并显示出来快到期的用户信息。
（比如：用户：XXX  购买日期XXXX-XX-XX  结束日期XXXX-XX-XX )

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

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

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

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

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

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

那就要变化了。
文本类型。
首先要生成 最后 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 & "';"

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

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