如何计算两个日期之间的天数？？？？？？？

Question

例如计算2003-2-10 和   2003-5-23之间的天数，
如何计算？

Answer 1

//D1,D2:TDateTime;  天数=Integer(D2-D1)

Answer 2

delphi中的定义：
 TDateTime = type Double;
  PDateTime = ^TDateTime;
  TDate = type TDateTime;
  TTime = type TDateTime;

Answer 3

//求两个时间之间的天数
uses DateUtils;
var
  date1,date2: TDateTime;
  day:         integer;
begin
  date1 := Date;
  date2 := DateTimePicker1.DateTime;
  day := DaysBetween(date1, date2);
  ShowMessage(Format('从..到现在已经过去了%d天',[day]);
end;

Answer 4

SELECT DATEDIFF(day,'2003-2-10','2003-5-23')

Answer 5

直接相减
DayDiff: Integer
DayDiff:=StrToDateTime('2003-5-23')-StrToDateTime('2003-2-10')

Answer 6

引用:DateUtils调用DaysBetween(date1,date2)函数

Answer 7

trunc(strtodate('2003-5-23')-strtodate(2003-2-10));

Answer 8

unit DateUtilsfunction DaysBetween(ANow,AThen:TDateTime):Int64

Answer 9

uses DateUtils;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  d1,d2,d3:Tdate;
begin
  //计算D1、D2相差几天
  d1 :=strtodate('2003-9-18');
  d2 :=strtodate('2003-9-9');
  d3:=d1-d2;
  Edit1.text:=inttostr(daysbetween(d1,d2));
end;

Answer 10

select datediff(day,2003-2-10,2003-5-23) as Sunsky