請問: 目前我要取得目前年月 以及目前年月的六個月前資料 我的程式如下 DecodeDate(date(), Year, Month, Day); edit3.Text := inttostr(Year); edit4.Text := inttostr(Month); //取得六個月之前的 DecodeDate(date() - 186, Year, Month, Day); edit1.Text := inttostr(Year); edit2.Text := inttostr(Month); 可是用Date()-186天，不確定是不是一定能夠取得前六個月 請問Date運算是否可以一次減一個月 即date() - 1個月的方式 謝謝???

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

參考看看 如何取得某月份最後一天 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18557 阿子 副站長的資料 國曆與農曆互相轉換的相關函數集第一集 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18873 取得或轉換國曆與農曆合而為一之月曆 第二集 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18874

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind

Hello skurama 您好: 請使用  IncMonth

function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime;    
例如
ShowMessage(DateToStr(IncMonth( StrToDate('2002/10/5'), -6 )));

------


我不是高手, 高手是正在銀幕前微笑的人.