如何获取两个日期之间相隔的天数？

[dgdlking]

有没有这样的函数？或者什么其他比较简单的方法？

[shmilyjiujiu]

var
tWork1,tOp1:Ttime;
tWork2 : string;
begin
tWork1:=now;
sleep(1000000);
tOp1:=now;
tWork2:=TimeToStr(tWork1-tOp1);
showmessage(tWork2)
end;
换成日期即可

[laohai]

daysbetweem()函数
我的一段代码，应该有用
days:=DaysBetween(strtodate(form6.MaskEdit1.text),strtodate(form6.MaskEdit2.text));

form18.StaticText18.Caption:=inttostr(days);

[hongqi162]

var
n1,n2:string;
n:integer;
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= DateTimePicker1.DateTime ;
DecodeDate(Present, Year, Month, Day);
n1:=inttostr(day);
Present:= DateTimePicker2.DateTime ;
DecodeDate(Present, Year, Month, Day);
n2:=inttostr(day);
n:=Trunc(strtoint(n2) - strtoint(n1));
edit1.Text:=inttostr(n);
end;

[superTY]

http://expert.csdn.net/Expert/topic/2270/2270028.xml?temp=.0192377

上面刚讨论过，看看吧。

[lzybfs]

两个日期相减就可以了

[yzykjh]

function DaySpan(const ANow,AThen: TDateTime): Double; //相差的天数

[FrameSniper]

DaysBetween
DaySpan

[hongqi162]

unit Unit2;

interface

uses

DateUtils;
procedure TForm2.Button1Click(Sender: TObject);
var
n:integer;
begin

n:=daysbetween(DateTimePicker1.DateTime,DateTimePicker2.DateTime);
edit1.Text:=inttostr(n);
end;

[Hyacinthus]

简单～ 一个sql语句搞定：
例如：
select to_date ('2002-6-26','yyyy-mm-dd')-to_date('2000-03-14','yyyy-mm-dd') days from dual

[Hyacinthus]

呵呵，，够简单实用吧，～～～给分吧！！！～～

[wangguan007]

Unit
DateUtils

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

Call DaysBetween to obtain the difference, in days, between two TDateTime values.