关于delphi中时间的问题

Question

我在做个图书管理系统  每本书借出七天未归换的话   在每次系统打开的时候就会自动弹出未归还图书的提示   数据库为access

Answer 1

使用DateUtils单元中的DaysBetween函数
if DaysBetween(Today, 借书日期) >= 7 then begin
  //do something
end;

Answer 2

有SQL语句查找超期的记录，如果有记录就弹出提示喽

Answer 3

select * from borrow where datBorrow >= getdate() + 7

Answer 4

Access中应该是date=SQL 中的Getdate

Answer 5

select * from borrow where datBorrow >= getdate() + 7楼上已经说的很清楚了，解释下！borrow      数据表
datborrow   借出图书时间
getdate()   取得当前时间函数通过一个sql查询语句就可以得到你要的统计数据！ 

Answer 6

在Access数据库中有date（）函数。我测了一下，看下面的代码
建立一个access数据库表
aa（borrowdate  日期/时间,note 文本)
测试数据:
编号 borrowdate note
1 2008-1-21 test1
2 2008-1-11 test2
3 2008-1-2 test3
4 2007-1-24 test4
5 2008-1-24 test5按钮是查询大于7天的数据。
procedure TForm1.Button1Click(Sender: TObject);
begin
  with adoquery1 do
  begin
    close;
    sql.text := ' select * from aa where date()-borrowdate>7';
    Open;
  end;
end;

Answer 7

另补充getdate()函数是sqlserver中的
在oracle中的取当前日期函数是  sysdate()

Answer 8

select * from borrow where datBorrow >= getdate() + 7
这个应改为：select * from borrow where datBorrow >= getdate() - 7