入境日 工作期滿=期滿日 例如2000年1月1日 1年5月30日=2001年7月1日 就是2000年1月1日跟1年5月30日這部分是自己要打的 然後他會自己算出 然後就是有分大月小月潤月之類的 所以我想問的不是一般那種算式 知道的可以告訴小弟我一下嗎 假如有發表錯地方 告知我@@

jaon 你好

  工作期滿1年5月30日所代表的意義為何?
我把它解讀為有效期間是1年5個月又30天(若所代表的意思為1年5個月時,
則只要有1年及5個月的參數即可),程式碼如下:    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); // 再加 n 天
end;    完整程式範例如下(D5source),試用看看
http://delphi.ktop.com.tw/loadfile.php?TOPICID=16944894&CC=378966

_______________________________________ 深藍的魚，祝您好運..........連連

jaon 您好：    純插花！ >< class="code">procedure TForm1.Button1Click(Sender: TObject); var nextDate : TDate; begin nextDate := StrToDate('2003/3/2') 365; ShowMessage( DateToStr(nextDate) ); // => 輸出結果：2004/3/1 (2004是閏年) end; RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

感謝上面兩位大大的提供解答 小弟先在這謝謝嚕~~