(2003-1-1 12:00:00)-(2002-8-11 12:00:00)=多少天？如何计算...

Question

我做一个计算机天数的程序，以前用VB可以计算出天数，可是现在用DELPHI了，日期-日期不知如何计算出天数，请各位大哥帮忙！

Answer 1

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

Answer 2

unit Unit1;interface
uses 
   DateUtils; procedure TForm2.Button1Click(Sender: TObject);
var n:integer
begin
 n:=daysbetween(DateTimePicker1.DateTime,DateTimePicker2.DateTime);
 edit1.Text:=inttostr(n);
end;

Answer 3

应该用DaySpan,如果只是计算： (2003-1-1 )-(2002-8-11 )=多少天 用DaysBetween

Answer 4

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

Answer 5

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