全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:3976
推到 Plurk!
推到 Facebook!

如何月份+1

尚未結案
vivi666666
初階會員


發表:83
回覆:94
積分:35
註冊:2003-03-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-06-17 19:47:46 IP:203.69.xxx.xxx 未訂閱
如何月份 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)
Jasonwong
版主


發表:49
回覆:931
積分:581
註冊:2006-10-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-06-17 20:07:21 IP:61.70.xxx.xxx 未訂閱
1.你可以直接加上30天~~這樣就等於加一個月了 2.使用 DeCodeDate 函數 原型:procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word); 取出月份之後再加1,整合之後再存進資料庫即可 -- 聰明的人,喜歡猜心;雖然每次都猜對了,卻失去了自己的心 傻氣的人,喜歡給心;雖然每次都被笑了,卻得到了別人的心
------
聰明的人,喜歡猜心;雖然每次都猜對了,卻失去了自己的心
傻氣的人,喜歡給心;雖然每次都被笑了,卻得到了別人的心
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-06-17 20:13:21 IP:219.130.xxx.xxx 未訂閱
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
vivi666666
初階會員


發表:83
回覆:94
積分:35
註冊:2003-03-05

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-06-17 20:38:33 IP:203.69.xxx.xxx 未訂閱
引言: 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
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-06-17 20:42:06 IP:219.130.xxx.xxx 未訂閱
KENDDTT:=QTmp.Fieldbyname('SDT').Asdatetime 1;
vivi666666
初階會員


發表:83
回覆:94
積分:35
註冊:2003-03-05

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-06-17 20:53:32 IP:203.69.xxx.xxx 未訂閱
引言: KENDDTT:=QTmp.Fieldbyname('SDT').Asdatetime 1;
減-個月是如下? KENDDT:= IncMonth(Dcd.Fieldbyname('SDT').Asdatetime) -1
ha0009
版主


發表:16
回覆:507
積分:639
註冊:2002-03-16

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-06-17 21:08:19 IP:61.56.xxx.xxx 未訂閱
你好: 其實月份加一在 D6 中已有現成的函式了,你可以試試如下的日期函式 IncMonth 加一個月 DecMonth 減一個月 IncDay 加一天 DecDay 減一天 試試吧 ^^
vivi666666
初階會員


發表:83
回覆:94
積分:35
註冊:2003-03-05

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-06-18 09:14:00 IP:203.69.xxx.xxx 未訂閱
引言: 你好: 其實月份加一在 D6 中已有現成的函式了,你可以試試如下的日期函式 IncMonth 加一個月 DecMonth 減一個月 IncDay 加一天 DecDay 減一天 試試吧 ^^ DecMonth 減一個月及DecDay 減一天要USE那單元
ha0009
版主


發表:16
回覆:507
積分:639
註冊:2002-03-16

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-06-18 09:23:37 IP:61.30.xxx.xxx 未訂閱
你好: 既然是 D6 已有的函式,你找 Help 應該比論壇速度快吧答案是加入 >
vivi666666
初階會員


發表:83
回覆:94
積分:35
註冊:2003-03-05

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-06-18 09:35:55 IP:203.69.xxx.xxx 未訂閱
引言: 你好: 既然是 D6 已有的函式,你找 Help 應該比論壇速度快吧答案是加入 > < face="Verdana, Arial, Helvetica"> 我已有SysUtils但還是不行,help d6好像沒decday及decmonth!! 若加3個月如何用?
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#11 引用回覆 回覆 發表時間:2003-06-18 09:44:31 IP:218.16.xxx.xxx 未訂閱
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 是否遺失了,還是你是當這裡的人是你的免費工人 你發問時可能不知有這些功能所以發問完全沒問題,但在上面已提示了你可以在 >> >>): >>
ha0009
版主


發表:16
回覆:507
積分:639
註冊:2002-03-16

發送簡訊給我
#12 引用回覆 回覆 發表時間:2003-06-18 09:50:54 IP:61.30.xxx.xxx 未訂閱
你好: 不好意思,我記錯了。只有 > > 不要罵我喔 < >
vivi666666
初階會員


發表:83
回覆:94
積分:35
註冊:2003-03-05

發送簡訊給我
#13 引用回覆 回覆 發表時間:2003-06-18 13:01:15 IP:203.69.xxx.xxx 未訂閱
引言: 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個多月, 工作上須要馬上把程式改出來,才會問那麼多問題.下次會改進
系統時間:2024-03-29 15:05:07
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!