在資料庫中取了兩個日子,如何計算兩者相差多少日呢?謝謝!

請參考一下吧.. http://delphi.ktop.com.tw/topic.php?topic_id=49766    

您好﹗    可使用Trunc函數來處理日期相差值﹐方法如下﹕

Var
  Date1, Date2: TdateTime;
  DiffDate: Integer;
begin
  Date1 := StrToDate('11/02/2004');
  Date2 := StrToDate('24/05/2005');
  DiffDate := Trunc(Date2) – Trunc(Date1);
  ShowMessage('相差﹕' + IntToStr(DiffDate) + '日');
end;

另外﹐還可配合ABS取絕對值函數來使用﹐無論Date1日期值較大或Date2日期值較大﹐都可做為減數或被減數來使用﹐同上例﹕

Var
  Date1, Date2: TdateTime;
  DiffDate: Integer;
begin
  Date1 := StrToDate('11/02/2004');
  Date2 := StrToDate('24/05/2005');
  DiffDate := ABS(Trunc(Date1) – Trunc(Date2)); //此處Date1日期值較大
  ShowMessage('相差﹕' + IntToStr(DiffDate) + '日');
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

你好 應該是可以用兩個日期相減就可以得到值,例如

var i : double;
begin
  i := date - StrToDate('2005/1/1');
  ShowMessage(FloatToStr(i));
end;

這樣就可以得到相減的天數!!試試看吧!! Pillar Wang

------
Pillar Wang

请查看DateUtils.pas中的    function YearsBetween(const ANow, AThen: TDateTime): Integer; function MonthsBetween(const ANow, AThen: TDateTime): Integer; function WeeksBetween(const ANow, AThen: TDateTime): Integer; function DaysBetween(const ANow, AThen: TDateTime): Integer; function HoursBetween(const ANow, AThen: TDateTime): Int64; function MinutesBetween(const ANow, AThen: TDateTime): Int64; function SecondsBetween(const ANow, AThen: TDateTime): Int64; function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;    希望能满足您的要求.

我用Delphi 5, use DateUtils,編譯時會有error,請問如何解決?