如何月份 1 1例2003/03/01 1(月)得到2003/04/01 再減1天得到 2003/03/31 是TDateTime 型態. 不曉如何寫?以下結果 1:VAR KENDDT:=TDateTime KENDDTT:=QTmp.Fieldbyname('SDT').Asdatetime---->(2003/03/01) KENDDTT得到 2003/03/31(TDateTime) 2例2003/03/01 1(月)得到2003/04/01 是TDateTime 型態. 不曉如何寫?以下結果 2::VAR KENDDT:=TDateTime KENDDTT:=QTmp.Fieldbyname('SDT').Asdatetime---->(2003/03/01) KENDDTT得到 2003/04/01(TDateTime)

1.你可以直接加上30天~~這樣就等於加一個月了 2.使用 DeCodeDate 函數 原型：procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word); 取出月份之後再加1，整合之後再存進資料庫即可 -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

uses DateUtils 找最後一日 : KENDDTT := EndOfTheMonth(QTmp.Fieldbyname('SDT').Asdatetime); 2003/03/01->2003/03/31 2003/02/15->2003/02/28 2004/02/18->2002/02/29 加一月 : KENDDTT := IncMonth(QTmp.Fieldbyname('SDT').Asdatetime); 2003/03/01->2003/03/01 2002/12/25->2003/01/25 2003/01/31->2003/02/28 請在 Delphi Help 輸入 datetime routines 有大量 datetime 處理函數 發表人 - Justmade 於 2003/06/17 20:16:59

引言: uses DateUtils 找最後一日 : KENDDTT := EndOfTheMonth(QTmp.Fieldbyname('SDT').Asdatetime); 2003/03/01->2003/03/31 2003/02/15->2003/02/28 2004/02/18->2002/02/29 加一月 : KENDDTT := IncMonth(QTmp.Fieldbyname('SDT').Asdatetime); 2003/03/01->2003/03/01 2002/12/25->2003/01/25 2003/01/31->2003/02/28 請在 Delphi Help 輸入 datetime routines 有大量 datetime 處理函數 發表人 - Justmade 於 2003/06/17 20:16:59

找加一日 : 2003/01/31->2003/02/01 2003/02/01->2003/02/02

KENDDTT:=QTmp.Fieldbyname('SDT').Asdatetime 1;

引言: KENDDTT:=QTmp.Fieldbyname('SDT').Asdatetime 1;

減-個月是如下? KENDDT:= IncMonth(Dcd.Fieldbyname('SDT').Asdatetime) -1

你好： 其實月份加一在 D6 中已有現成的函式了，你可以試試如下的日期函式 IncMonth 加一個月 DecMonth 減一個月 IncDay 加一天 DecDay 減一天 試試吧 ^^

引言: 你好： 其實月份加一在 D6 中已有現成的函式了，你可以試試如下的日期函式 IncMonth 加一個月 DecMonth 減一個月 IncDay 加一天 DecDay 減一天 試試吧 ^^ DecMonth 減一個月及DecDay 減一天要USE那單元

你好： 既然是 D6 已有的函式，你找 Help 應該比論壇速度快吧答案是加入 >

引言: 你好： 既然是 D6 已有的函式，你找 Help 應該比論壇速度快吧答案是加入 > < face="Verdana, Arial, Helvetica"> 我已有SysUtils但還是不行,help d6好像沒decday及decmonth!! 若加3個月如何用?

D7 裡沒有 DecMonth, DecDay 我沒 D6 所以不知是否 D7 除去了    減一個月可用 : KENDDTT := IncMonth(QTmp.Fieldbyname('SDT').Asdatetime,-1); 減三個月可用 : KENDDTT := IncMonth(QTmp.Fieldbyname('SDT').Asdatetime,-3); 如此類推    加減日數基本上直接加減就可，但也可用 IncDay(Now,+3)  IncDay(Now,-2) 等    月份加一再減一日求該月最後一日在 D5 前較常用但是是要 1. DecodeDate  2. 將 Month 加一(要自行處理 12->1) 3. 將 Day 設 1   4. Encode Date  5. 減一日。    現在有 EndOfTheMonth 該方法已不必了 另重申 :

請在 Delphi Help 輸入 datetime routines 有大量 datetime 處理函數

答此題時未見提問者在上層的回文，現後補 :

引言: 若加3個月如何用?

請問你的Help File 是否遺失了，還是你是當這裡的人是你的免費工人 你發問時可能不知有這些功能所以發問完全沒問題，但在上面已提示了你可以在 >> >>): >>

你好： 不好意思，我記錯了。只有 > > 不要罵我喔 < >

引言: D7 裡沒有 DecMonth, DecDay 我沒 D6 所以不知是否 D7 除去了 減一個月可用 : KENDDTT := IncMonth(QTmp.Fieldbyname('SDT').Asdatetime,-1); 減三個月可用 : KENDDTT := IncMonth(QTmp.Fieldbyname('SDT').Asdatetime,-3); 如此類推 加減日數基本上直接加減就可，但也可用 IncDay(Now, 3) IncDay(Now,-2) 等 月份加一再減一日求該月最後一日在 D5 前較常用但是是要 1. DecodeDate 2. 將 Month 加一(要自行處理 12->1) 3. 將 Day 設 1 4. Encode Date 5. 減一日。 現在有 EndOfTheMonth 該方法已不必了 另重申 :

請在 Delphi Help 輸入 datetime routines 有大量 datetime 處理函數

答此題時未見提問者在上層的回文，現後補 :

引言: 若加3個月如何用?

請問你的Help File 是否遺失了，還是你是當這裡的人是你的免費工人 你發問時可能不知有這些功能所以發問完全沒問題，但在上面已提示了你可以在 >> >>): >> >< face="Verdana, Arial, Helvetica"> 真的很感謝你回答我那麼多問題,因我對DELPHI不熟,才學3個多月, 工作上須要馬上把程式改出來,才會問那麼多問題.下次會改進