以下是我要判斷的東西 我要判斷的是 未滿一年的話要 上1年但是滿一年的話不進行動作 那我要判斷未滿一年的話要如何判斷呢 請各位大大會的人幫小弟我一下 在這先感謝各位嚕~~~@@ procedure TForm1.Button1Click(Sender: TObject); Var D1 : Tdate; im : Integer ; begin D1 := Trunc(DateTimePicker1.Date) ; IM := StrToInt(Edit1.Text)*12 StrToInt(Edit2.Text) ; D1 := IncMonth(D1,IM); Edit5.Text := DateToStr(D1 StrToInt(Edit3.Text)-1); end; end.

jaon 您好：    建議您產生另一個TDate變數，並將此變數以IncYear(.)把起始時間增加一年，如此便可以與此變數比較，來判斷是否超過一年了！ 底下程式碼供參考：< class="code">procedure TForm1.Button1Click(Sender: TObject); Var D1, Due, StartDate : Tdate; im : Integer ; begin StartDate := StrToDate('2004/1/1'); // 起始時間 D1 := Now ; Due := IncYear(StartDate, 1); // 增加一年 if ( D1 RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====##### 發表人 - richtop 於 2004/08/10 11:14:31 發表人 - richtop 於 2004/08/10 11:18:16

hi,jaon:   如果你Delphi的版本是6以上的話,可以直接uses DateUtils,如下:

uses DateUtils;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  iY:Integer;
begin
  iY:=YearsBetween(DateTimePicker1.DateTime,DateTimePicker2.DateTime);
  if iy=0 then
    iY:=1;
  Edit1.Text:=IntToStr(iY);
end;

如果不是的話,就要check一下,DateUtils有沒有提供這類函數了