以下是我程式內容 就是我要把DateTimePicker1和edit2 edit3的值 顯示在edit5 然後再把edit5的值顯示在edit4 我這程式是有關日期的 我有上傳我做的Delphi的程式Form1檔案上傳上來給各位看 舉例 開始日期+期限( 幾年 幾月 幾日) 2002/1/1+ 5月25日 = 2002/5/26 我的問題是當我執行時先不管edit1物件的值只要將edit2跟edit3 輸入的值顯示在edit5 然後再把edit5的值加上1年然後顯示在edit4 各位大大會的人 可以幫解答一下嗎?@@ 小弟先在這感謝嚕~~@@    procedure TForm1.Button1Click(Sender: TObject); Var   D1,D2,TD : Tdate;   im : Integer ; begin   D1 := Trunc(DateTimePicker1.Date) ;   IM := StrToInt(Edit1.Text)*12+StrToInt(Edit2.Text) ;   D2 := IncMonth(D1,12); //滿一年的日期   TD := Now;   //=Max(D2,TD);//    //或是   //If D2 < TD Then Begin     // 未滿一年   //End Else 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 於 2004/08/11 17:15:18

Hi jaon,

procedure TForm1.Button1Click(Sender: TObject);
Var
  d1,d2,d3 : TDate;
begin
  d1 := DatetimePicker1.Date;
  try
    d2 := IncMonth(d1,StrToInt(Edit2.Text));
    d2 := IncDay(d2,StrToInt(Edit3.Text));
    Edit4.Text := DateToStr(d2);
    try
      d3 := IncYear(d2,StrToInt(Edit1.Text));
      Edit5.Text := DateToStr(d3);
    except
      Edit5.Text := 'Error'
    end;
  except;
    Edit4.Text := 'Error';
    Edit5.Text := 'Error';
  end;
end;

uses DateUtils ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

procedure TForm1.Button1Click(Sender: TObject); Var D1,D2,TD : Tdate; i,j,k,jm : Integer ; y,m,d:word; begin    D1 := Trunc(DateTimePicker1.Date) ;    DecodeDate(D1,y,m,d);    i:=strtoint(edit1.Text);    j:=strtoint(edit2.Text);    k:=strtoint(edit3.Text);       jm:=j+m;        repeat      if jm > 12 then       begin        jm := jm -12;        inc(i);       end;       until (jm <= 12);      TD:=  EncodeDate(y+i,jm,d)+k;   D2:=  EncodeDate(y+i+1,jm,d)+k;   //截止日期   Edit5.Text:=DateTimeToStr(TD);  //加上日期   Edit4.Text:=DateTimeToStr(D2);    end;    ps: 抱歉了, 因為小弟也是新手, 程式寫得不是很精簡,      看看是否有前輩願意介紹更精簡的程式寫法, Thank YOU!