geniustom多謝你的指引. 可是我現在用的開發工具 是:Delphi5.0 而那個DateUtils 是不是不包含在Delphi5.0里面的. 調用不了喲. 有什麼辦法啊?? 有勞!! ken

------
ken

linken您好，我寫了個小範例，把DateUtils中會用的的部份抓出來(共三個FUNCTION)， 這樣您就不用非得use DateUtils不可了

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;    type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  function DaysBetween(const ANow, AThen: TDateTime): Integer;
  function DaySpan(const ANow, AThen: TDateTime): Double;
  function SpanOfNowAndThen(const ANow, AThen: TDateTime): TDateTime;
implementation    {$R *.dfm}    function DaysBetween(const ANow, AThen: TDateTime): Integer;
begin
  Result := Trunc(DaySpan(ANow, AThen));
end;    function DaySpan(const ANow, AThen: TDateTime): Double;
begin
  Result := SpanOfNowAndThen(ANow, AThen);
end;    function SpanOfNowAndThen(const ANow, AThen: TDateTime): TDateTime;
begin
  if ANow < AThen then
    Result := AThen - ANow
  else
    Result := ANow - AThen;
end;    procedure TForm1.FormCreate(Sender: TObject);
var
   D1,D2:TdateTime;
   i:integer;
begin
  D1 := StrToDate( '2003/10/15' );
  D2 := StrToDate( '2004/04/10' );
  showmessage('間隔'+inttostr(DaysBetween(d1,d2))+'天');
end;        end.

另外，如果您想要DateUtils.PAS檔案的話 > <> <> <> < > <> < class="code"> =程式是一種藝術 也是訓練自己的分析規劃= =是段落分明 或是雜亂無章= =是一言以敝 或是廢話連篇= =是一目了然 或是艱深難懂= 體會這份藝術 您會了解另一份喜悅與成就

日期是TDateTime型態.... StartDate, EndDate: TDateTime; (EndDate - StartDate) / 365 就是你要的了

geniustom謝謝你的指引, 可是我是一個菜鳥,所以 什麼都不會,我要的是年 和月一起輸入,你算出是 天,雖可以除以30 或31 或29得出月,然之後再除 以12得出年是這樣嗎?? 但好像很麻煩喲!!有沒有 更好更快的方法啊??? ken

------
ken

linken您好，得出天數後直接除以365就行了ㄚ!如同jimmy_wei所說的，我把它寫的清楚些    

procedure TForm1.FormCreate(Sender: TObject);
var
   D1,D2:TdateTime;
   i:integer;
   str:string;//宣告要輸出的字串
begin
  D1 := StrToDate( '2003/10/15' );       //開始時間
  D2 := StrToDate( '2004/04/10' );       //結束時間
  str:=format('間隔：%1.1f 年',[(D2-D1)/365]);
  //上面這行如果用1.1f是顯示到小數第一位，1.2f顯示到小數第2位
  showmessage(str);
end;

沒有這麼麻煩的吧，再怎麼寫也不會超過10行，而且，您有真的動手USE過 我給你的DateUtils嗎?有試過它提供的方法嗎? 我之前之所以引用DateUtils.DaysBetween(d1,d2))，是因為可以準確的求出天數(包含年及大小月) (直接相減也是一種辦法) 然後你再去求得近一步的處理，直接除以365就得到了， 或是使用DateUtils.MonthsBetween(d1,d2) 直接求出準確的月份(包含月份跟月份之間)，然後你在去除12也可以 方法太多了，你自己好好研究吧 GOOD LUCK <> <> <> < > <> < class="code"> =程式是一種藝術 也是訓練自己的分析規劃= =是段落分明 或是雜亂無章= =是一言以敝 或是廢話連篇= =是一目了然 或是艱深難懂= 體會這份藝術 您會了解另一份喜悅與成就