TDateTimePicker的判斷問題，與系統時間一樣 如何設 |
|
答題得分者是：wameng
|
|
seedbcc
高階會員   發表：232 回覆：272 積分：105 註冊：2003-12-10 發送簡訊給我 |
|
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
var StartDateTime,EndDateTime : TDateTime; begin StartDateTime :=Trunc(StartDate.Date) Frac(StartTime.Time); EndDateTime :=Trunc(EndDate.Date) Frac(EndTime.Time); if StartDateTime>EndDateTime then ..... ... end;>Tdataimepicker 如何讓它 跟系統時間 一樣 StartDate.DateTime := Now; StartTime.DateTime := StartDate.DateTime; .... |
|
bestlong
站務副站長  發表：126 回覆：734 積分：512 註冊：2002-10-19 發送簡訊給我 |
先定義如下:起始日期為SD,起始時間為ST,終止日期為ED,終止時間為ET. 再改變的時候, 先檢查是否 SD < ED 若 True 那日期就 Ok, 若是 SD=SE 再檢查是否 ST < ET . 這樣就好了. 程式大略如下: if dtpSD.Date > dtpED.Date then
begin
//日期範圍錯誤
end else
begin
if dtpSD.Date = dtpED.Date then
if dtpST.Date > dtpET.Date then
begin
//時間範圍錯誤
end;
end; 我是雪龍
------
http://blog.bestlong.idv.tw/ http://www.bestlong.idv.tw/ http://delphi-ktop.bestlong.idv.tw/ |
|
seedbcc
高階會員 發表：232 回覆：272 積分：105 註冊：2003-12-10 發送簡訊給我 |
發表時間：2004-11-08 10:07:52
IP:220.134.xxx.xxx 未訂閱
系統時間：2024-05-17 10:30:38
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |