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

日期如何加上固定月份?

答題得分者是:chenyk
tomc
一般會員


發表:41
回覆:35
積分:15
註冊:2003-07-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-09-08 14:21:29 IP:125.93.xxx.xxx 訂閱
比如今天是2007年8月25日+9個月為2008年5月25日

隻是月份相加

用的是DateTimePicker控制

DateTimePicker.Date 270,這樣的話,並不是月 份加9個月

該如何實現呢?
------
交流.學習
Stallion
版主


發表:52
回覆:1600
積分:1995
註冊:2004-09-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-09-08 14:47:06 IP:211.22.xxx.xxx 未訂閱
Uses
SysUtils;

裡面有 IncMiliSecond, IncMinute, IncDay, IncMonth, IncYear, IncWeek...等等,如果日期要往之前的日子推,記得參數值給負值即可,按F1查線上說明會有較詳細的說明。
===================引 用 tomc 文 章===================
比如今天是2007年8月25日 9個月為2008年5月25日
隻是月份相加用的是DateTimePicker控制
DateTimePicker.Date 270,這樣的話,並不是月 份加9個月
該如何實現呢?
max5020
資深會員


發表:26
回覆:275
積分:320
註冊:2003-06-04

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-10-11 15:08:53 IP:59.120.xxx.xxx 未訂閱
插一下花,
是Uses DateUtils;
才對
===================引 用 Stallion 文 章===================
Uses
SysUtils;

裡面有 IncMiliSecond, IncMinute, IncDay, IncMonth, IncYear, IncWeek...等等,如果日期要往之前的日子推,記得參數值給負值即可,按F1查線上說明會有較詳細的說明。
===================引 用 tomc 文 章===================
比如今天是2007年8月25日 9個月為2008年5月25日
隻是月份相加用的是DateTimePicker控制
DateTimePicker.Date 270,這樣的話,並不是月 份加9個月
該如何實現呢?
chenyk
高階會員


發表:14
回覆:94
積分:171
註冊:2002-07-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-10-23 11:53:57 IP:202.39.xxx.xxx 訂閱
try
y := yearof(now);
m := MonthOf(now);
d:= dayof(now);
result := encodeDate(y,m 9,d);
except
result := encodedate(y 1,(m 9)-12,d);
end;
Louis_H
一般會員


發表:7
回覆:18
積分:5
註冊:2005-10-07

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-11-08 14:25:21 IP:59.120.xxx.xxx 未訂閱
Uses DateUtils;

EX:
dtpSdt.DateTime :=IncDay(now,-14); //dtpSdt 顯示二週前的日期
dtpSdt.DateTime :=IncMonth(now,9); //dtpSdt 顯示九個月後的日期
月份大於 十二 自動 年份加一計算;日數大於該月月底日自動 月份加一計算。
這個好用喔!讚!

----------------
裡面有 IncMiliSecond, IncMinute, IncDay, IncMonth, IncYear, IncWeek...等等,如果日期要往之前的日子推,記得參數值給負值即可,按F1查線上說明會有較詳細的說明。
系統時間:2017-12-13 15:27:26
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!