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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |