引言: 如果有二個日期分別為2001/02/11及2004/12/15... 請問我要如何作才能得知這二個日期相差幾天... thx~~~ < face="Verdana, Arial, Helvetica">

procedure Test;
var
   dt1,dt2 : TDateTime;
   diff : Double;
begin
  dt1 := EncodeDate(2001,2,11);
  dt2 := EncodeDate(2004,12,15);
  diff :=  double(dt2) - double(dt1);
  ShowMessage(FloatToStr(diff));
end;

沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

引言: Delphi TDateTime 事實上是實數 整數部分是天數 (自 1899/12/31 起算), 小數部分是時間 (單位為天) 所以 你可以直接將 Trunc(D2) - Trunc(D1).

我才在想，為什麼在 BCB 中可以使用 int() 的運算子來轉換，但在 Delphi Unit (我是用 BCB 來學 Delphi 的)中就是不行。我是有發現在 BCB 中，TDateTime 有另外的 .cpp 的 Source ，這可能是 BCB 與 Delphi 的 TDateTime 不同的原因吧。 原來用 Trunc() 就可以取整數部分，學到了 在 >沒空更新的網頁... href="http://dllee.adsldns.org">http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....