请问:如何才能（20032-8-11）-（2001-12-4）=多少天？

Question

时间-时间=多少天？

Answer 1

n := Round(data2 - data1);

Answer 2

DateTime类型数据直接相减取整就是相隔多少天

Answer 3

n := Floor(data2 - data1);

Answer 4

select datediff(day,2001-12-4,getdate())

Answer 5

我的一段代码，应该有用
  days:=DaysBetween(strtodate(form6.MaskEdit1.text),strtodate(form6.MaskEdit2.text));        form18.StaticText18.Caption:=inttostr(days);

Answer 6

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;

Answer 7

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;

Answer 8

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

Answer 9

用sql语句就可以了：
select to_date ('2003-01-01','yyyy-mm-dd')-to_date('2002-08-11','yyyy-mm-dd') days from dual

Answer 10

uses dateutils
................
...........
Function daysBetewwn 
或
function dayspan

Answer 11

var 
  n: Integer;n := Round(data2 - data1);