我有把我的檔案介面 傳上來給各位大大看 假如 我要在年輸入1的時候我想要在edit4裡面顯示內容是多加+一年和減一個月 但是edit5裡的值不變 請問各位大大 要怎麼寫呢~~@@ 不好意思 麻煩各位大大嚕~~@@ 先在這感謝各位嚕~~~~~    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;        

jaon您好 不太懂你的意思,如果你要Edit5.Text:=DateTimeToStr(TD);為原來樣子 為了不用Edit5.Text:=DateTimeToStr(D1);便是edit5裡的值不變

來插花的。如果要加減日期，可以用 incMonth,incDay 這樣可以免判斷閨年或跨年的問題哦！ 記得先uses DateUtils;    ..-----------βλμε------------..
◎Ｏｏ月夜 光明 藍更愁ｏＯ◎
藍調月光城v4：http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調．月光)：http://mypaper2.ttimes.com.tw/user/a6475

------
月夜 光明 藍更愁