如何计算今天与未来某天之间的天数?

Question

写天数倒计时
请问如何计算今天与未来某天之间的天数?
请给出示例.

Answer 1

uses DateUtilsprocedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(inttostr(daysbetween(now,strtodatetime('2005-9-7'))));
end;

Answer 2

SQL语句：
select datediff(day, '2005-01-01', getdate())

Answer 3

Use DateUtilsDaysBetween(EarlyDate，LateDate)

Answer 4

uses DateUtils;procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr(daysbetween(date,strtodate('09-09-2004'))));
end;

Answer 5

var
d1,d2:Tdatetime;
i: integer;d1 := strtodatetome('2005-01-01 02:01:02');
d2 := strtodatetome('2005-04-06 12:04:32');
i := trunc(d1-d2);

Answer 6

daysbetween是不准的，因为它只是两时间相减后取整，这就会导致明天的凌晨减今天的子夜却是零天了；
最准确的算法应该是
var
d1,d2:Tdatetime;
i: integer;
i:=trunc(d2)-trunc(d1);