一个十分简单的问题:两日期相减如何得到天数？

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Trunc(DateTimePicker1.Date - DateTimePicker2.Date)));
end;

Answer 1

http://www.csdn.net/develop/read_article.asp?id=10841

Answer 2

算时间在delphi中是最容易的，如下：  
  
var  ss : TDateTime  
  
其实Tdatetime是一个双精度的浮点数(double)，它的小数点前表示天数：   
  
如，  ss := ss + 20 表示从ss开始向后20天，如果 ss = 234.567    
它就表示 234.567天,当然是从公元0年开始计算的！  
--------------------------------------------------------------------------------
时间处理的秘密
TDateTime类型实际上就是一个double（双精度数）. 整数部分是日期小数部分是时间。例如var
  DateTime : TDateTime;
  Date : TDateTime;
  Time : TDateTime;
begin
  DateTime := now;
  //获得日期
  Date := Trunc( DateTime );
  //获得时间
  Time := Frac( DateTime );
end;日期运算
如果你想增加几天，只需要加一个天数就可以了var
  DateTime : TDateTime;
begin
  DateTime := now;
  //七天以后
  DateTime := DateTime + 7;
end;想要知道两个日期的差距，只需要互相减一下就可以了。var
  StartTime, StopTime, Difference : TDateTime;
begin
  Difference := StopTime - StartTime;
end;

Answer 3

Trunc(DateEnd - DateStart)
Tdatetime是一个双精度的浮点数(double)，它的小数点前表示天数.

Answer 4

use DateUtils;var a:integer;
begin
a:=daysbetween(StrToDate('2002-5-26'),StrToDate('2001-02-01'));
end;加分了，呵呵:)