ACCESS 中的时间相减问题(100分)

在 ACCESS 中怎么实现：两个日期之间相隔多少天?或者在DELPHI的代码中怎么实现两个日期之间相隔多少天？
如：当前日期 - '2006-01-01 ' 这两个日期之间差了多少天?
急需解决！谢谢......

uses
DateUtils;
DaysBetween(day1,day2);

function DaysBetween(const ANow, AThen: TDateTime): Integer

问题: delohi中两日期相减后是什么类型啊？ ( 积分: 50 )
分类: 数据库-文件型

来自: frankabarknal, 时间: 2005-05-16 17:40:00, ID: 3075350
我的图书系统中，计算罚款中遇到了两日期相减，再计算罚款是怎么做的啊？

来自: xianguo, 时间: 2005-05-16 17:41:55, ID: 3075351
实数（单位:天）

来自: DragonInCity, 时间: 2005-05-16 17:47:54, ID: 3075358
是整型

来自: frankabarknal, 时间: 2005-05-16 17:54:40, ID: 3075363
我数据库中的结余借阅日期是date，那
var
n:integer
begin
n:=Date(系统当前日期)-date;
inttostr;
showmessage;
end;
怎么会出错啊

来自: xianguo, 时间: 2005-05-16 17:55:54, ID: 3075364
var
n: Integer;
begin
n:=Trunc(Date(系统当前日期)-date);
inttostr;
showmessage;
end;

来自: xianguo, 时间: 2005-05-16 17:57:11, ID: 3075366
DaysBetween(d, Now);

来自: lmxcyx, 时间: 2005-05-16 18:08:55, ID: 3075373
var
Fd,Ld:TdateTime;
Diff;integer;
begin
FD:=借书开始时间;
LD:=Now;
Diff:=LD-FD;
showmessage(InttoStr(Diff)+'天');
end;

来自: gaowei, 时间: 2005-05-16 18:14:43, ID: 3075379
两个日期相减后，需要一个函数能使之变为整型数。

来自: frankabarknal, 时间: 2005-05-16 18:56:53, ID: 3075410
好像都不行啊

来自: frankabarknal, 时间: 2005-05-16 18:58:48, ID: 3075412
提示DaysBetween(d, Now);是不可识别的指示符

来自: frankabarknal, 时间: 2005-05-16 18:59:15, ID: 3075413
两个日期相减后，需要一个函数能使之变为整型数？

是什么函数啊

来自: frankabarknal, 时间: 2005-05-16 19:01:46, ID: 3075416
Diff:=LD-FD;提示类型不符

来自: 孤云, 时间: 2005-05-16 19:09:51, ID: 3075430
提示DaysBetween(d, Now);是不可识别的指示符
加 unit DateUtils
DaysBetween(d, Now);比较好用

来自: frankabarknal, 时间: 2005-05-16 19:13:54, ID: 3075436
是的daysbetween比较好，谢谢！

得分大富翁: DragonInCity-5,gaowei-5,lmxcyx-5,xianguo-15,孤云-20,

很简单,有现成的函数

计算相隔天数：
在Uses中加入dateutils;

函数为daysbetween(datetime1,datetime2)

SELECT CInt(now - #2006-1-1#)

大家发表了半天意见，楼主也没反应。
好像楼主不会结贴！[]

谢谢

[!][!][?][?]

北丐洪七 大哥 ，不好意思 我从下往上看得 实在不好意思啊