Delphi中两个系统时间之间的比较怎样进行，我被难住了！！！！！

Question

Delphi中两个系统时间之间的比较怎样进行，我被难住了！！！！！
例如：第一个系统时间：2006-2-24 15:11:22
      第二个系统时间：2006-2-25 16:13:04
如何比较得出相差的天数？？？

Answer 1

function TForm1.CalDayNum(d1 : TDate;d2 : TDate) : string ;
var TempD : TDate;
    Tempstr : string;
begin
  TempD :=  d1 - d2 ;
  Tempstr := VarToStr(TempD);
  Tempstr := Copy(Tempstr,1,(pos('.',Tempstr)-1));
  Result := Tempstr;
end;
直接调用函数就行了

Answer 2

uses DateUtils;.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var
  d1,d2:TDateTime;
begin
  d1:=StrToDateTime('2006-2-24 15:11:22');
  d2:=StrToDateTime('2006-2-25 16:13:04');
  ShowMessage(IntToStr(DaysBetween(d1,d2)));
end;

Answer 3

uses DateUtils;
仔细看一下DateUtils这个单元的内容吧,很多你没想到的日期函数都在这里面.

Answer 4

var
d1,d2:Tdatetime;
//数组中0..6分别表示：年、月、日、时、分、秒、毫秒
a,b:array [0..6]of word;
begin
DecodeDate(d1,a[0],a[1],a[2]);
DecodeTime(d1,a[3],a[4],a[5],a[6]);
DecodeDate(d2,b[0],b[1],b[2]);
DecodeTime(d2,b[3],b[4],b[5],b[6]);
//...接下来就比较 a,b的数值就行了。end;

Answer 5

如果只想得到相差天数：
var 
  d1,d2:Tdatetime
  n:integer;
beginn:=trunc(d1)-trunc(d2);end;

Answer 6

时间型其实也是一个real数值，其整数部分就是天数。